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How To Use This Document 


1 documents the use of the Common Graphics Library's (CGL) Langley 
Easy Plot (LEZ) routines. This manual is intended to serve both as a user's guide 
and reference manual. " 

S ection ,1 provides an introduction to the CGL by describing its purpose and 
capabilities. This section acquaints the user with an overview of the New 

Graphics System (NGS) and reveals the significance of the Common Graphics 
Library. 

S ection 2 consists of basic terms and definitions which are used throughout the 
remainder of the document. 

Section 3 consists of a detailed description of how to use the LEZ routines. This 
section is primarily intended to provide a basic understanding of the necessary 
calls and the appropriate calling sequences needed to generate specific chart 
types (line, bar, and pie). 

Section 4 gives a general overview of postprocessing considerations. 

Appendix A supplies a complete description of each LEZ routine, providing a 
description of the arguments, the routine's restrictions, and any relevant notes. 

Appends S . is a collection of commented test cases accompanied with the 
corresponding graphics output. The examples in this section are intended to 
reflect some of the typical charts generally desired by various groups at Langley. 

Appendix Q supplies the user with the set of defaults used by the LEZ routines. 

A ppendix P shows the user how to access and execute the CGL on various 
computers. 


This documentation and the initial design of the LEZ routines was modeled after 
the structure of the GRAFEASY User's Guide IG-7] written by Precision Visuals 
Incorporated (PVI). 
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ACD 

attribute 

bar chart 

CDC 

character axis 
chart 

Common Library 

composite chart 
CORE 

defaults 
device driver 


Analysis and Computation Division 

An inherent characteristic generally used in describing an 
external appearance of an entity (e.g. color, height, etc.) 

A chart consisting of rectangles with heights representing a 
dependent value at an associated independent position. 

Control Data Corporation 

An axis which has evenly spaced tick marks with text tick 
mark labels. 

A graphical representation giving information in tabular form. 
Plots which are "bars" are referred to as "bar charts", while 
plots which use "pie segments" are referred to as "pie charts". 

A subroutine library which satisfies LaRC local requirements 
and generates common features not supported by other 
graphics libraries. 

A collection of two or more charts on a single display area 
(terminal screen, graphics frame, etc.). 

A proposed graphics standard developed by the Association 
of Computing Machinery’s Special Interest Group on 
Graphics (SIGGRAPH). 

A set of initial values for a set of attributes. 

A device-dependent program that supports a specific 
graphics device. The device driver generates device- 
dependent output from device-independent input and 
handles device-dependent interaction. 


viii 


device 

independence 
frame 
frame eject 

FSGB 

GKS 

graphics session 

High-level 

routines 

interval units 

ISO 

kernel 

key 

LaRC 

LARCGOS 

line graph 


The ability to control all graphics devices uniformly. 


A complete unit of plotting. A final figure. A page. 

A frame eject clears the c isplay area of the selected graphics 
device in preparation for tie next frame of picture(s). 

Flight Software and Graphics Branch of ACD 

Graphics Kernel System - a graphics standard approved by 


time in which interaction with, or use of a graphics packaae 
takes place. a 

A set of routines providing an interface to generate specific 
chart types. 

The increment between numeric major tick labels. 

International Standards Organization 

A subroutine library which contains all required functions for 
performing interactive and passive graphics tasks. 

A list of words or phrases giving an explanation of symbols or 
abbreviations. 

Langley Research Center 

A library of locally written graphics subroutines and a set of 
postprocessors that drive the ACD Production Devices. 
LARCGOS is part of the Old Graphics System (OGS). 

A graph in which points represent values of a variable for 
suitable values of an independent variable and are 
connected by line segments. Line graphs available in the 
Common Graphics Library include linear charts (those with 

linear axes) and logarithmic charts (those with logarithmic 
3xes). 
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linear axis 

An axis which has a linear progression of numeric major tick 
mark labels. 

logarithmic 

axis 

An axis which has a logarithmic progression of numeric major 
tick mark labels. 

Low-level 

routines 

A set of routines in the Common Graphics Library which 
provide graphical support in the generation of plots unique to 
the graphics requirements of LaRC. 

metafile 

A sequential file which contains the device-independent 
picture information necessary to produce the desired 
graphical output. 

metafile 

translator 

The program which interprets the device-independent 
metafile commands for specific physical devices 

MOVIE. BYU 

A graphics display system written at Brigham Young 
University. 

NCAR 

A library of graphics subroutines written at the National 
Center for Atmospheric Research. 

NGS 

New Graphics System at LaRC 

NOS 

Network Operating System running on Control Data 
computers. 

OCO 

Operations Control Office in Building 1268 

OGS 

Old Graphics System at LaRC 

NASA line 
patterns 

A set of LaRC preferred line patterns used to represent data 
in line charts. 

NASA Logo 

An emblem officially recognized by NASA. 

NASA symbols 

A set of LaRC preferred symbols used to represent data in 
line graphs. 

NGS 

New Graphics System at LaRC. 
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passive graphics 
PC 

pie chart 

pie segment 
pixel 

post processor 

PRIMOS 

production 

devices 

publication 

standards 

PVI 

scale factor 
scale origin 

selected graphics 
device 

tick mark 

viewgraph 

standards 


Graphics requiring no dynamic interaction with the display. 
Personal computer (e.g , IBM PC XT) 

A diagram consisting of a circle which is divided by radii, 
called pie segments, each of which represent a part of a 
whole entity. 

Section of a pie consisting of an area swept out by a radius. 

The smallest unit available for display on a raster screen, 
representing a single graphics point. 

A device-dependent program that drives an ACD production 
device. 

PRIME Operating System 

Batch graphics output facilities at the central site; includes 
Calcomp, Varian, and Vorsatec. 

A set of requirements describing the appearance and 
contents of plots which must be satisfied for use in technical 
documents published through the NASA publication process. 

Precision Visuals, Incorporated 

The change in value per scale increment. 

The beginning lower scale value. This is usually the 
minimum value or an ad usted minimum value. 

A graphics device which is enabled to receive graphics 
output or to send graphics input. 

Short lines at specified intervals denoting grid. 

A set of requirements describing the appearance and 
contents of plots which must be satisfied for use in audience 
presentations. 
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workstation 

2D 

3D 


An abstract logical unit consisting of zero or one display 
surface and zero or more input devices. 

Two-dimensional 

Three-dimensional 
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1. Introduction 


The Common Graphics Library (CGL) enables the user to generate charts 
conforming to the unique graphics requirements at NASA LaRC. This section will 
identify these requirements, describe the purpose of the CGL, and provide an 
overview of the library's structure and capabilities. 

The CGL offers various levels of operation ranging from powerful, easy to use, 
chart making routines, to special purpose routines for specific applications. One of 
the chief considerations in the design of the CGL was the capability of generating 
publication quality charts requiring a minimal of effort. Figure 1-1 shows the three 
basic chart types generated by the Langley Easy (LEZ) routines. 
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a) Low pressure fatigue of Superalloy 



Entropy, S, J/mol at 1 atmos 


b) Temperature vs. entropy for Superalloy 
Figure num, Characteristic charts for Superalloy 


Figure 1 -1 . The three basic LEZ chart types, 
a) Bar chart; b) line c hart. 
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c) Composition of Superalloy 


Figure num. Concluded 

Figure 1-1. Concluded, 
c) Pie chart. 


1.1 LaRC's Unique Plotting Requirements 

The graphics requirements at LaRC are very diverse in nature, reflecting the 
diverse variety of applications (business, CAD/CAM, engineering, and scientific, 
etc.) present at NASA Langley. The CGL and this manual concentrate on 2D chart 
generation. These types of charts include: line/logarithmic charts, bar charts, and 
pie charts. See section 2 for a description of each chart type. 

The format of these computer-generated charts must conform to various criteria 
depending on where and how the charts are to be used. Several types of journals 
and technical papers require that the charts are acceptable to the Langley 
publication process. The remainder of this subsection will provide only the basic 
characteristics of this criteria, whereas a complete description can be found in 
"Guidelines in Preparing Computer-Generated Plots for NASA Technical Reports 
with the LaRC Graphics Output System" [G-2], 

A fundamental intent of the CGL is to provide a set of primitive routines unique to 
LaRC. These requirements partially consist of: the NASA line patterns, the NASA 
symbols, and the NASA logo. 
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The NASA line patterns consist of the following eight line patterns in the followinq 
sequence: a 


1 

2 

3 

4 

5 

6 

7 
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Figure 1-2. NASA standard line patterns. 


The NASA symbols consist of the following symbols in the following sequence: 
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Figure 1-3. NASA standard symbols. 

If a flag is desired, add 100, 200, 300, ..., 800 to the base symbol number. Note, 
symbols one through ten are recommended foi publication quality plots. 

1 O lOI Cf 201 'O 301 p 401 Q 

50 1 Cf 601 b 70 1 J© 301 Q 


Figure 1 -4. NASA standard symbols with flags. 


1-3 



If a solid filled symbol is desired, add 900 to the base symbol number. Note, 
however, the use of solid filled symbols is not desirable for publication quality 
charts. 

901 # 


Figure 1 -5. NASA standard symbols - solid filled. 

The NASA logo is an emblem officially recognized by NASA. The policy governing 
the use of the NASA logo is documented in the NASA Management Manual (NMI 
1020.1G Paragraph 13b). 


IW\SA 

Figure 1-6. NASA logo. 

In addition to these primitives, the page layout and the contents of the charts must 
conform to the criteria determined by the chart's intended audience. For example, 
the sizes and distances between various chart elements must be sufficient to 
provide a clear and legible chart. 

The intent of the publication quality standard is to ensure that charts will 
consistently be published legibly with no loss of integrity. As such, a set of 
publication parameters are defined that control the size of the characters used for 
labeling, the distances to the labels, the distances between lines and columns, the 
length of tick marks, and the symbol sizes. 

The use of viewgraph standards ensures that charts being presented to a group 
will show the data clearly and legibly. 

A complete description of the publication quality standards can be found in the 
NASA TM 81908 ("Guidelines in Preparing Computer-Generated Plots for NASA 
Technical Reports") [G-2], 
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1-2 Purpose of the C ommon Graphics Library 


A commercially developed general purpose graphics package is typically designed 
for the graphics user community at large as opposed to being tailored toward a 
specific set of restrictions such as those proposed by LaRC. Thus, LaRC's 
requirements necessitated the development of a Langley specific qraphics librarv 
the COMMON GRAPHICS LIBRARY (CGL). This library is accessible from all New 
Graphics System software components providing an easy means of supplvina 
these requirements. 9 


The purpose of the Common Graphics Library is to supply the users with a set of 
application independent primitives which satisfy LaRC’s unique graphics 
requirements, enable the user to view data quickly and easily, and provide a 
means of generating charts conforming to the publication and/or viewgraph 
process. Thus, the spacing and distancing between various components is 
inherently based on these prescribed values. This feature supports the user in the 
generation of publication quality charts, while minimizing the necessity of 
cumbersome formatting details. 


1 -3 The Structure and Capabilities of the Co m mon Granhios I ib^r y 

The CGL consists of two levels, a set of generalized, High-level (Langley Easy, or 
LEZ) routines, and a set of specific, Low-level routines (see figure 1-7). These two 
levels reflect the degree of sophistication both in terms of difficulty of use and 
provided capabilities. 


The La w-level routines control individual chart components, such as an axis, a kev 
or a data line. The user pieces together these components to construct a desired 
chart. This set of routines works directly with the underlying graphics package and 
thus fires the user to be familiar with that package. Since the user is constructing a 
chart, the user has a greater range in the diversity of charts to be generated. 
However, this diversity is offset by a greater programming effort. 


The Langley Easy (LEZ) Plot routines, also referred to as Hiah-leval routines 
control aspects of an entire chart. The LEZ routines call all necessary Low-levei 
routines to produce a given chart type for the user. The user then controls the 
characteristics of the chart components. The High-level routines provide a method 
of quick and easy chart generation with an emphasis on publication and/or 
viewgraph quality linear/logarithmic charts, bar charts, and pie charts. Thus the 
user is relieved of the responsibility of learning the details of the underlying general 
purpose graphics package, and much of the details of the publication and 
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viewgraph quality standards. The only details needed from *he user pertain to the 
user's desired chart. By using the High-level routines, the user modifies a selected 
chart type through an abundant set of options. Although these options provide a 
wide diversity of chart configurations, the amount of effort needed to generate them 
is minimal. It should be noted that the LEZ routines can be used in conjunction with 
the Low-level routines to further enhance the basic charts created with the LEZ 
routines. 


User application program 


COMMON GRAPHICS LIBRARY 


Langley Easy (LEZ) Plot 
Routines 


The Low Level 
Routines 


The underlying 
graphics package 


Figure 1 -7. Structure of the Common Graphics Library from an application 

viewpoint. 
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14 Q ommon Graphics Library's Prominence in th e New Graphics System (NGS1 

The Common Graphics Library is a FORTRAN user-callable library which can be 
used independently or in conjunction With other graphics packages. This 
subsection is intended to briefly describe how the Common Graphics Library is 
related to NGS. The Graphics MINI Manual [G-1] identifies and describes the 
various graphics software and hardware components, details the interfaces 
between these components, and provides information concerning the use of 
these components at LaRC. The user is strongly recommended to read the 
Graphics MINI Manual to obtain an overview of the various graphics capabilities 
currently available in the NGS. Figure 1-8. the NGS hierarchy structure, shows 
the major graphics software packages and hardware devices currently supported. 

As previously described, the Common Graphics Library consists of LEZ routines 
(High-level) and Low-level routines. The Low-level routines interface with the 
underlying graphics package directly, and are intended as an extension to this 
package by supplying chart components (e.c.. axes, symbols, lines, patterns, etc.). 
This level of sophistication enables the software packages which are functionally 
higher in the hierarchy to utilize these capabilities. To interface the CGL with 
other graphics packages, the user must either directly modify the package calling 
the CGL or use the CGL in conjunction with the calling package adhering to the 
constraints of both packages. 


The LEZ routines provide a degree of sophistication which is intended to be used 
as a stand-alone package. Although these routines use the Low-level routines 
internally, the Low-level routines can also be called by the user to augment the 
LEZ routines graphics output. 

1-4.1 The Underlying Graphics Package 

Currently, DI-3000 is the application independent, underlying graphics package 
serving as a primary component of the CGL. The LEZ routines provide an 
abstract interface which is "commercial graphics package independent". This 
implies that the calling sequence and arguments supplied to the LEZ routines do 
not rely on a specific underlying graphics package. This independence is 
conducive to future transitions of the LEZ routines from DI-3000 to another 
underlying graphics package (e.g. GKS). 
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The Low-level routines, however, interface with DI-3000 directly and are therefore 
"context sensitive" (i.e. , must conform to the requirements of "where" and "how" 
the graphical components can be created and generated). Additionally, the 
capabilities of the Low-level routines depend heavily upon the primitives and 
attributes present in the underlying graphics packages (e.g., color, character, 
fonts, interim line patterns, etc.). 

USER DEVELOPED 



METAFILE 

WORKSTATION 

'TERMINAL 

HARDCOPY 

FILM PRINTER 

OTHER 



VECTOR 

PLOTTER 

RECORDER 




RASTER 


t 



B/W 

COLOR 

Figure 1-8. NGS hierarchy structure. 
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1.4.2 The Device Driver.^ 


The following explanation of the relationship of the device drivers to the NGS 
hierarchy is intended as an overview. The user is referred to the Graphics Mini 
Manual [G-1] for a more detailed description. 

Each of the NGS software components interface to a hardware device through a 
device driver. A DI-3000 device driver is a collection of device specific 
subroutines that drive a particular display device. A separate DI-3000 device 
driver is associated with each graphics output device. A special device driver, the 
metafile driver, produces a file of device independent graphics information that 
may be processed by the METAFILE TRANSLATOR [G-6]. The features of each 
device driver are documented in a Device Driver Guide (DDG) [G-1 0]. Although 
the device driver is linked at load-time, the user must initialize, select, and 
perform other device action from within the application program. Each device is 
assigned as an integer number. For load-time device selection, the metafile 
driver is assigned "0" and any other device is assigned "1". 

Since the L EZ routines are not restricted to a specific general purpose graphics 
package, but provides an abstract interface, the following call selects and 
initializes the identified device(s): 

CALL LEZINI (IDEV) 

where IDEV is the assigned device name (0-metafile; 1 -Interactive device; 2-both 
metafile and interactive device). Note, this routine can be called again to select 
and deselect specific devices. A complete description of selecting and 
initializing the underlying graphics package from the LEZ routines can be found 
in Appendix A in the description of LEZINI. 

In the case of the Low-level routines of the CGL, the device driver must be 
selected and initialized with the following DI-3000 calls 

CALL JDINIT (IDEV) 

CALL JDEVON (IDEV) 


where IDEV is the assigned device number (0-metafile; 1 -interactive device). A 
complete description of selecting and initia izing DI-3000 can be found in the 
DI-3000 User’s Guide [G-5], 
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It is a common practice that most of the figures in NASA reports are grouped 
together at the end of the report instead of inserted in the text; therefore, all 
figures should be as uniform as possible. However, authors are instructed to 
discuss requirements with the editors if they want figures integrated in the text. 
The basic rules to follow in planning uniform figures are: 

1. The chart perspective should be read from one point; the person 
reading the charts should not have to rotate the paper to read the charts. 
The one exception to this rule is a long vertical label. 

2. The plot areas should be kept the same size and the charts should be 
oriented the same throughout the report. 

3. The same scale per unit value (scale increment) should be used on 
similar data, even if the data are in different ranges. For example, a 
scale increment, for an angle should remain the same even if the range 
is 0 to 90 for one chart and 90 to 1 80 for another chart. 

4. The vertical figure orientation (see figure 9) is preferred. The vertical 
measurement is 9 3/16 inches (233.4 mm) and the horizontal 
measurement is 7 1/8 inches (181.0 mm). 

5. The horizontal figure orientation (see figure 10) is not preferred 
because the report must be physically rotated to view the figure, but 
there are times when the data necessitates using the horizontal figure. 
The horizontal measurement is 9 3/16 inches (233.4 mm) and the 
vertical measurement is 7 1/8 inches (181.0 mm). 

6. All labeling within the plot area should be the same size even if the 
figure is divided into multiple parts. If a figure is divided into multiple 
parts, the height of the full-size character for labeling is based on the 
size of the whole figure, not each separate part. 

7. Horizontal axis should represent independent data, vertical axis should 
represent dependent data. 

8. Character heights should be 1/4 greater than widths (or conversely 
width should be .8 of height). 
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Figure 1-9. Vertical figure orientation. 
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Figure 1-1 


. Horizontal figure orientation. 
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1-6 The Use of the C GL for Publication Purposes 

The Common Graphics Library provides a method to obtain publication and 
viewgraph quality charts. By default, the CGL will conform to publication qualitv 
standards by providing: 7 


- appropriate sizes and distances between various chart components; 

- data curves using lines and symbols, such that the line does not pass 
through the symbols; 

- text attributes suitable to acceptable publication standards; and 

- appropriate distancing between tick mark labels and the axes. 

Because the CGL defaults to the use of these NASA standards, the user is 
required to have a minimum knowledge of the actual specifications needed to 
obtain these charts. However, the user is responsible for using the library in such 

a way as to stay within the criteria of the publication process. The user should 
ensure: 

- that user defined text heights and widths are acceptable; 

- appropriate capitalization of text to conform to standards; 

- the numeric tick mark labels have su table scale factors; 

- that text does not overwrite other components (and/or text); and 

- appropriate content for the audience’s clarity. 

The CGL does provide assistance in dealing with some of these considerations. 
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Notes. 
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2. Basic Con cepts and Terminology 


This section provides an overview of the various types of charts and identifies 
and illustrates their various components. This section is intended as a 
reference only. Conceptually, this section begins with the more abstract 
concepts and decomposes them into smaller, more refined elements. 

2.1 The Terms Chart and Plot 

The terms £_h.art and plot are often used interchangeably, but have subtle 
differences depending on the context in which they are used. 

chart - a diagram (is a series of one or more symbols, lines, line segments, 
curves, tabular data, or areas) that represent the variation of a variable in 
comparison with that of one or more other variables. Charts which depict linear 
data are referred to as "line charts" or "linear charts". Charts which depict 
logarithmic data are referred to as "log charts" or "logarithmic charts". Charts 
which use "bars" are referred to as "bar charts", while plots which use "pie 
segments" are referred to as "pie charts". There are three basic chart types: 
linear/logarithmic charts, bar charts, and pie charts (see figure 2-1). Each type 
is explained in a following subsection, and concepts specific to each are 
detailed. 


plot - one or more charts on a single display area (terminal screen, graphics 
frame, etc.). Thus, "plot" is used interchangeably in this document as a generic 
term for "chart". 

composite chart - a collection of two or more charts on a single display area 
(terminal screen, graphics frame, etc.). 
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Figure 2-1 . The three basic LEZ chart types. 

Linear chart (bottom); bar chart (middle); pie chart (top). 
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Dependent data on the 


2.2 Coordinate Systems 


page coordinates - The CGL routines allow the user to define a coordinate 
system in which all charts, and their components can be described. This system 
provides a unit of measure allowing the user to establish lengths, and distances 
(e.g., axis length, axis positioning, etc.). This coordinate system is referred to as 
page coordinates (or page space). The units used to describe the paqe 
boundaries (or page size) can be determined by the user, and can represent 
any unit of measure the user wishes. If the user is going to send the charts to a 

postprocessing device, a compatible unit of measure is desirable (e a inches 
or millimeters). 



Independent data on the x— axis 


Plot of y= | 100cosl8x| 

Figure 2-2. Page coordinates. 


DCLINl 



data coordinates (or data space) • The CGL routines allow the user to 
define a coordinate system in which the data is to be plotted. The user controls 
the range and values of the data coordinate system through calls to the 
appropriate routines. The data coordinates only affect how and where the data 
is to be plotted on the page. If data to be plotted lies outside the data space, 
then those data values will be clipped (i.e., not plotted). The location of the 
data coordinate system is determined by the boundaries formed by a set of axes 
(two or more). 



Independent data on the x — axis 


Plot of y= | lOOcoslBx | 

Figure 2-3. Data coordinates. 
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2.3 Linear/Loa arithmic Charts 


A Iinear/logarithmic chart is a diagram which uses a series of one or more 
symbols, lines, line segments, and/or a combination of these to represent data. 
For a linear chart, the scale factor (i.e., the change in values between major tick 
marks) progresses in a linear fashion. For a logarithmic chart, the scale factor 
progresses in a logarithmic fashion. 

Charts are further classified based on the scale factors for the dependent and 
independent axes: 

linear chart - both axes are linear 

logarithmic chart - both axes are logarithmic 

semi-log chart - one axis is linear and logarithmic. 


The LEZ line plotting routines will generate publication and/or viewgraph line 
charts with the NASA line patterns and symbols. When a data curve is 
represented with both lines and symbols, the LEZ routines will display the data 
with the line not passing through the symbol. The user may plot linear 
logarithmic, or logarithmic-linear charts. The LEZ line routines offer a key 
which provides additional information about the data in the chart. By the use of 
unique line patterns and symbols, it is possible to plot a family of curves which 

can clearly be seen either on a color viewgraph, or on a black and white printed 
report. K 
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1) horizontal axis - 

the axis parallel to the bottom of the figure orientation when 
viewing the page from the intended perspective. The horizontal axis 
usually represents the independent data. 

2) vertical axis - 

the axis parallel to the side of the figure orientation when viewing the 
page from the intended perspective. The vertical axis usually represents 
the dependent data. 

3) major tick mark - 

short lines at specified intervals perpendicular to the axis being denoted. 

4) major tick mark labels - 

a character or numeric description associated with a major tick mark. 
Often referred to as "tick mark labels". 

5) minor tick marks - 

short lines between major tick marks perpendicular to the axis being 
denoted. 

6) scale factor - 

the change in value between numeric major tick marks. 

7) axis label - 

a text string describing the properties associated with an axis. 


8) key 


a block of information placed within the page boundaries, explaining any 
codes or symbols used on the chart. The placement of the key, of a 
particular chart, is based on the justification about the key position (an XY 
page coordinate). For example, a justification of upper right will 
position the upper right corner of the key at the position denoted by the 
key XY location. ul ur 


ll- 


lr 


9) kev entry - 

a line consisting of a description associated with a symbol and/or line. 

10) caption - 

the figure number and title. Often referred to as a chart title . 
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Figure 2-4. Linear/logarithmic chart components. 
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2.4 Bar Charts 


A bar chart is a diagram which uses a series of rectangles. The height of each 
rectangle represents a dependent value at an associated independent 
position. 

The charts may be represented in an absolute manner (side by side) 
contrasting the data distinctly. The charts may be represented in an additive 
manner (stacked) showing their cumulative properties. A key option can be 
used to provide additional information concerning multiple data sets. 

1 ) horizontal axis - 

the axis parallel to the bottom of the figure orientation when 
viewing the page from the intended perspective. The horizontal axis 
usually represents the independent data. 

2) vertical axis - 

the axis parallel to the side of the figure orientation when viewing the 
page from the intended perspective. The vertical axis usually represents 
the dependent data. 

3) major tick mark - 

short lines at specified intervals perpendicular to the axis being denoted. 

4) major tick mark labels - 

a character or numeric description associated with a major tick mark. 
Often referred to as "tick mark labels". 

5) minor tick marks - 

short lines between major tick marks perpendicular to the axis being 
denoted. 

6) scale factor - 

the change in value between numeric major tick marks. 

7) axis label - 

a text string describing the properties associated with an axis. 

8) kev - 

a block of information placed within the page boundaries, explaining any 
codes or symbols used on the chart. The placement of the key, of a 
particular chart, is based on the justification about the key position (an XV 
page coordinate). For example, a justification of upper rig ht will 
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Pressure at failure, psi 


position the upper right corner of th€ key at the position denoted by the 
key XY location. ul-~— UR 

• • 

* • 

9) kev entry - LL lr 

a line consisting of a description associated with a symbol and/or line. 


10) caption - 

the figure number and 



title. Often referred to as a chart title . 
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Figure 2-5. Bar chart components. 
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2.5 Pie Charts 


A pie chart is a diagram consisting of a circle which is divided by radii, called 
pie segments, each of which represent a part of a whole entity. The following 
figure illustrates the various components of a pie chart. The LEZ pie chart 
routines generate a plot which will show the relativity of the components of a 
certain entity. Pies are most often used in showing the "percent of" or 
"composition of" a particular item. 

The pie chart routines offer the capability of computing and showing the 
percentage labels, quantity labels, and/or text labels for each segment. A key 
option can be used to prov'de additional information. 

1) radius - 

the length of a line segment extending from the center of a pie segment 
to the pie segment circumference. 

2) griqin - 

the center of the pie. 

3) oie segment - 

a wedge-shaped polygon representing a percentage of the entire pie. 

4) pie segment text label - 

a description associated with a pie segment. 

5) pie segment quantity label - 

the actual value of which the segment represents. 

6) pie segment percentage label - 

the percentage of the pie which the segment denotes. 

7) kev - 

a block of information placed within the page boundaries, explaining any 
codes or symbols used on the chart. The placement of the key, of a 
particular chart, is based on the justification about the key position (an XY 
page coordinate). For example, a justification of upper right will 
position the upper right corner of the key at the position denoted by the 


key XY location. ul UR 

I t 

LL LR 
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2.6 Composite Charts 


The LEZ routines can easily generate multiple charts per page, hereafter 
referred to as composite charts. The number and type of charts that can be 
placed on a page is limited only by the user-definable page size. It is possible 
to have the three available chart types appear on the same page. The 
generation of composite charts utilizes most of the options available in the LEZ 
options routine (LEZOPT). 



1. 


o 


-l. 


E 




-1.0 -.9 -.8 —.7 -6 -.5 —.4 -.3 -.2 -.1 0 


C 

l 

C 

d 


C 


2y/b 



2y/b 

Vortex flow about a 60° delta wing 

Figure 2-7. Example of a composite chart. 
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3. LEZ ROUTINES 


of h L L b E rou r °ne n calls r °' The ', h ® “ pa ^ ili1 '' of S»noratin a charts using a minimal set 

cLrt caMhMitto. th 65 Prcvlde line ’ lo 9 ar ilhmic, bar. and pie 

art capabilities. The primary emphasis offered by the LEZ routines is the 

hnear or logarithmic line charts which use the NASA line patterns and ooint 

« S ,;n and ^ f ° rm t0 NASA/L ^9'eys publication and/or vfe^aph 

rhartl h? ns ■ dd,tl0na,ly ’ there are several Options available for enhancing 

= sxs&sa r: 

uniaue'lo LaRC h h publicalion quality plots and requirements 

unique to LaRC, it also provides an extreme y simple and easy way to generate 

C m a ? S t. ThG ^ EZ routmes provide a set of defaults which will yeld diarts which 

The effnrt^f th^r ^ ,lttle ° r "° modifica,ions ) t0 the publication standards 
The effort of the library to ensure these standards are met. also ensures that 

BesidlT^e? eq ^rT n D^ Wl11 bG eaS ' ly salisfied (e -9- "P uick and dirty plot”) 
Besides serving the LaRC requirements, the LEZ routines offer desirable 

of a mL W ef C fort be I 1 h e p 1 ^ USer th ® generstion of Poetical charts. As a result 
of a little effort, the user can easily generate three basic types of charts- 

sS framP ^‘ C ’ b H f ’ a ° d P ' 6 ' These basic types can be combined onto a 
single frame to provide a composite chart if desired. 

nntpti'rfn 2 ^ had °P tions allow users to enhance the charts by including additional 
oaoe ^nd rnmh"- C ° f SChemes ’ chan 9 in 9 the Position of the charts on the 

Thpto n d t b 9 Cha,1s 0nt0 a s,ngle page t0 generate composite charts 
These options increase the flexibility of the LEZ generated chart thus 

minimizing the need to use other graphics packages. Proper use of the LEZ 
routines as shown in this document will ensure clear and legible charts 
requiring little or no change in the development and execution of the user's plot 
program. For a list of available options, refer to LEZOPT in Appendix A. 
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The ° r d er of the calls to the LEZ routines necessary to generate a chart is 
similar for the three basic chart types. Since many of the LEZ routines are 
optional, the user only need call those routines which will refine the chart as 
desired. Both required and optional routines should follow the order as 
indicated in figure 3-2. If this order is not fcllowed the chart may not be leaible 
or may not appear as desired. 


For any of the LEZ generated charts, the following calls are required. Any other 
routines will be described in the subsection dealing with that specific LEZ call. 


LEZINI: Initialize the Common Graphics Library and the underlying graphics 

package. This routine sets the LEZ defaults and indicates on which 
device(s) the chart is to be drawn (metafile, screen, or both) The 
default page size is 7.0 X 7.0 inches. 

LEZSHW: Draws the chart as it is currently defined by all previous LEZ calls. 

This routine may be called more than once between LEZINI and 
LEZTRM. This allows the user to view the chart as each new 
annotation and/or refinement is specified. 

At this point the user can refine the chart by making more calls to the 

LEZ routines, or the user can terminate the graphics session bv 
calling LEZTRM. 1 

LEZTRM: Ensures the completion of all graphics output and terminates both 

the Common Graphics Library and the underlying graphics 
package. This must be the last LEZ routine called by the 
applications program. 

LEZINI may be called again after this LEZTRM to start the creation of 
another chart. However, the usa of LEZTRM will end and rewind the 
metafile. Therefore, if multiple 'rames (i.e., plots) are to be written to 
metafile, then LEZTRM should only be called once after the last chart 
is generated. 
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Figure 3-2. The sequence of LEZ calls to generate a chart. 
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3.2 Line Charts 


All line charts generated by the LEZ routines follow the previously described 
sequence of subroutine calls as shown in f gure 3-2. The available line chart 
routines are LEZLIN and LEZLOG. The LEZLIN routine is used for generating 
linear charts. For a linear scale, the change in values between tick marks is 
s snstaht - A line chart showing time versus temperature would be an example 
of a linear chart that could be generated using LEZLIN. The LEZLOG routine is 
used for data sets that require a logarithmic scale for the independent, the 
dependent axis, or both axes. For a logarithmic scale , the change in value 
between tick marks varies logarithmically . L ogarithmic scales are useful when 

the data to be plotted has a large range of values (e.g., between one and one 
billion). 
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3-2.1 Steps Required to Generate Line Chans 


Figure 3-4 shows a flow chart of the order in which the LEZ routines should be 
called to produce a line chart. The optional routines LEZPGE (which sets the 
page size), LEZFIL (which sets the error and debug destinations), and LEZDB 
(which sets the debug level) will be described in detail later in section 3.6. 

The following subsections (i.e., 3.2.2 through 3.2.7) provide an overview of the 
necessary and optional routines available to generate a line chart. The 
following pages provide a worded outline of how to produce various types of 
the basic line chart. The routine names in bold are those which are of primary 
interest in that subsection. Unless otherwise stated, the line charts shown in 
this section were produced by using only the necessary LEZ routines. The user 
is referred to Appendix A for a complete description of the LEZ routines and 
their associated arguments. These examples , along with additional ones, 
appear in Appendix g with a listing of the source code which produced them. 

Although the LEZ line routines can be used to generate publication and/or 
viewgraph quality charts, please refer to section 1.6 for a list of considerations 
necessary to conform to those standards. 
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The following section provides a brief description of the LEZ routines 
pertaining to the linear and logarithmic charts. Although a more detailed 
description for each subroutine is given in Appendix A, the followina 
descriptions are presented here to acquaint the user with the LEZ interface. 
The routines below are described in the order of use (see figure 3-4). 

LEZLIN: Establishes the chart as a linear chart. Tick marks are positioned 

beginning at the input minimums and ending at the input 
maximums. By default there are eleven major tick marks per axis 


LEZLOG: Establishes the chart as a logarithmic chart. This routine expects 

logarithmic data (i.e., the log of the data is to be done prior to 
calling LEZLOG). 

Initiates the creation of a key for the chart. There can be only one 
key per chart. The location of the key is specified in this routine by 
an XY position about which the key will be justified. The key can 

be put anywhere on the page, keeping in mind that it will overwrite 
any plotting done at that position. 

LEZAXN: Overrides the default numeric: tick mark labels, and specifies 

numeric tick mark labels for an axis. This routine is used to 
change the appearance of the axis (i.e., numeric tick mark labels 
and/or the number of major and minor tick marks). This routine 
can be used for either/or both axes. This routine does not change 
the corresponding data coordinate system! 

LEZAXT: Overrides the default numeric tick mark labels, and specifies 

user-supplied text tick mark labels for an axis. This routine can be 
used for either or both axes. 


LEZIND: 


Defines an additional independent array of data. 


LEZDAT: Adds an additional depende nt data set to the chart. The 

relationship among dependent data sets is absolute. If a key is 

used for the chart, the key entry associated with this data set is 
supplied by this routine. 
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LEZOPT: Sets options to change the appearance of the current chart. Once 

the attributes have been changed, the new values are used for all 
the following charts until they are changed again either by calling 
LEZOPT again or calling LEZINI. 

LEZSIZ: Changes the height, width, and gap of the text. This routine 

changes the size of the text used during the generation of the 
chart. This size remains in force until LEZSIZ is called again, or 
LEZINI is called (resetting the text characteristics back to the 
defaults). 

LEZNOT: Defines and positions a note on the current chart. The note is 

displayed when LEZNOT is called, not in LEZSHW with the rest of 
the chart. The note may be placed anywhere on the page and 
may be rotated about an XY position about which the note will be 
justified. 

LEZSIZ may be called prior to this routine to change the text 
height, width, and gap. When refining the chart, if the screen is 
cleared after LEZSHW is called the notes must be input again if 
they are to appear on the chart after the second call to LEZSHW. 
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3.2.2 Linear Chart with Defaults 


This section shows how to generate linear charts using the defaults (i.e., the 
minimal number of calls possible). By default, both axes will be drawn with 1 1 
major tick marks. Thus, the tick mark labels may not conform to publication 
quality standards depending on the minimum and maximum values of the axis 
(i.e., INDMIN and INDMAX, DEPMIN and DEPMAX). Sections 3.2.3, 3.2.5, 
and 3.2.6 provide alternative methods for obtaining more suitable tick mark 
labels. 

There are only four calls to the LEZ routines necessary to obtain a line chart 
using the defaults . The necessary calls are: 

LEZINI 

LEZLIN: 

Establishes the chart as a linear chart. Tick marks are positioned 
beginning at the input minimums and ending at the input maximums. 

By default there are 1 1 major tick marks per axis. 

LEZSHW 

LEZTRM 

The following program generates figure 3-5 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 


PROGRAM DCLIN1 

CHARACTER TITLE *80, IAXLBL*80, DAXLBL*80 
REAL .<(0:10) , Y( 0: 10) , INDMIN , INDMAX 
DTRAD=ATAN(1. )/45. 

DO 10 1=0,10 
X( I ) =REAL( I ) 

10 Y ( I )=ABS (100. *C0S(X( I ) *18. *DTRAD) ) 

IDE V=1 

CALL LEZINI ( IDEV ) 

NVALS=1 1 
TITLE= 

+ 'P [ BLC ] LOT OF Y= [FONT=24] [ELC] B [FONT J 100 [BLC JC0S18X' // 
+ '[FONT=24] [ELCJB' 

IAXLBL='I (BLCJNDEPENDENT DATA ON THE X-AXIS' 

DAXLBL='D[ BLC ]E PENDENT DATA ON THE Y-AXIS' 

INDMIN=X(0) 

INDMAX=X( 10) 

DEPM IN=Y ( 5 ) 

DEPMAX=Y ( 10 ) 

INDHV=1 
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Dependent data on the 


LINAPP=1 

CALL LEZLIN(X,Y, NVALS , TITLE , IAXL£ L, DAXLBL , INDMIN, 
+INDMAX.DEPMIN , DEPMAX, INDHV ,LINAPI ) 

CALL LEZNOT( 'DCLIN1' , 7 . ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 



Independent data on the x— axis 


Plot of y= | 100c os!8x | 


DCLIN1 


Figure 3-5. Linear chart using defaults. 
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3.2.3 Linear Chart wit h Automatic Scaling 

If the range of all data sets is not known a priori the use of the automatic scalino 
feature is recommended. The LEZLIN routine can be invoked to automaticallv 
an axis. This means the routine will determine the minimum and 
maximum value of the initial data set and all subsequent data sets entered 
through LEZDAT. Once the range is determined, the library will adjust the 
number of major tick marks and their labels to conform to publication standards. 
The number of ^justed tick marks will range between 3 and 11, while the tick 
mark labels will have suitable increments conforming with publication 
standards, and be represented by a sufficient number of digits. For example to 
automatically scale the dependent axis in increasinn order, DEPMIN and 
DEPMAX should be set to the same positive real number (and vice versa). To 

fM^TA a i Cally SCale the inde P enden t axis in a decreasing order, INDMIN and 
INDMAX should be set to the same negative real number (and vice versa). 



The following program generates figure 3-6 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 

PROGRAM DCLIN2 

CHARACTER TITLE*2 56 , IAXLBL*80 ,DAXLBL*80 
REAL SPAN (2 5) , CLIFT(25),INDMIN, INDMAX 

DATA CLIFT/ .4748 , .6962,. 8165, . 9102, .9631 , l .005, I .063, l. 112, 

+1.146,1.170,1.187,1.199,1.207,1.210,1.209,1.203,1.193,1.180, 
+1.163, 1.142, 1.1 17, 1.094,1. 076, 1.028,. 5721/ 

RI=- 1 . 0 
DO 1 1=1,25 
RI=R I+.04 

1 SPAN(I)=RI 

IDEV-0 

CALL LF.ZINI(IDEV) 

NVALS=25 

TITLE='V [ BLC JORTEX FLOW ABOUT A 60 [ BSUP JO [ESUP \ DELTA WING WITH [F 
+ONT=9]A[F0NT]=20[BSUP]O' 

I AXLBL='2 [ BLC ] Y/B ' 

DAXLBL='C[ BLC ]0 EFFICIENT OF LIFT' 

INDMIN=0. 

INDMAX=0. 

DEPMIN-0. 

DEPMAX=0. 

INDHV=1 
LINAP P=1 

CALL LEZL I N( SPAN, CLIFT ,NVALS .TITLE, IAXLBL.DAXLBL, INDMIN, INDMAX, 
+UEPMIN , DEPMAX, INDHV ,LINAP P) 

CALL LEZNOT ( 'DCLIN2' , 7 . ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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3.2.4 Linear Chart with a Decreasing Numeric Axis 


The user may desire to plot data with an axis which has decreasing tick mark 
values. The user can invoke the LEZLIK routine to plot with decreasing axes, 
by passing the minimum greater than the maximum for the appropriate axis 
(dependent or independent). For example, to obtain a decreasing dependent 
axis with tick mark values from 10.0 to -10.0, pass DEPMIN as 10.0 and 
DEPMAX as -10.0. Similarly, to obtain a decreasing independent axis with tick 
mark values from 10.0 to -10.0, pass INDMIN as 10.0 and INDMAX as -10.0. 


PRECEDING PAGE BLANK NOT FILMED 



The following program generates figure 3-7 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 

PROGRAM DCLIN3 

CHARACTER T LTLE*256 , IAXLBL*80 , DAXLBL*80 
REAL SPAN(25),CLIFT(25),INDMIN, INDMAX 

DATA CLIFT/. 4748, .6962, .8165, .9102, .9631, I .005, 1 .063, I . 112, 

■K. 146, 1.L7 0,1. 187,1.199, 1.207, 1.210, 1.209, 1.203, 1.193, 1.180, 

+ 1.163, 1.142, 1. 117,1.094,1.076,1.028, .5721/ 

RI=-1.0 
DO 1 1=1,25 
RI=R I+. 04 

l SPAN(I)=RI 

IDEV=0 

CALL LEZINI ( IDEV) 

NVALS=25 

TITLE='V[BLC]ORTEX FLOW ABOUT A 60[BSUP JO [ESUP] DELTA WING WITH [F 
+ONT=9 ] AJFONT j =20 [ BSUP ]0 ' 

IAXLBL='2 [BLCJY/B' 

DAXLBL='C [ BLC ]0 EFFICIENT OF LIFT' 

INDMIN=-1 . 

INDMAX=0. 

DEPMIN— 1.0 
DEPMAX— 1.0 
INDHV= 1 
LINAPP=l 

CALL LEZLIN(SPAN, CLIFT, NVALS, TITLE, IAXLBL.DAXLBL.INDM IN, INDMAX, 
+DEPMIN, DEPMAX, INDHV.LINAPP) 

CALL LEZNOT('DCLIN3' ,7. ,0. ,3, 1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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3.2.5 Linear Chart with a Specified Nu me ric Axis 

Although the defaults will produce a linear chart with tick marks, the number of 
tick marks and tick mark labels may not be suitable. The following section 
describes how to override an axis appearance . The data coordinate system, 
based on the data minimums and maximums, will not be changed. Thus, it is 
strongly recommended to keep the axis and the data coordinate system 
consistent. LEZAXN may not be used for an axis that has been autoscaled until 
after LEZSHW has been called. 

There are only five LEZ routines necessary to obtain a line chart with specif ied 
numeric axes . The calls necessary are: 

LEZINI 

LEZLIN 

LEZAXN: Overrides the default numeric tick mark labels, and specifies 

user supplied numeric tick mark labels for an axis. This routine 
is used to change the appearance of the axis (i.e. , numeric 
tick mark labels and/or the number of major and minor tick 
marks). This routine can oe used for either/or both axes. This 
routine does not change the corresponding data 
coordinate system! The data coordinate system is determined 
in LEZLIN, based on the minimum and maximum values of the 
independent and dependent data sets. If a different data 
coordinate system is desired, the current chart should be 
terminated (LEZTRM) and a new chart generated with the 
appropriate data coordinate system. 

LEZSHW 

LEZTRM 
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The following program generates figure 3-8 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 

PROGRAM DCLIN4 

CHARACTER TITLE*80 , IAXLBL*80 , DAXLBL*80 
REAL X(0: 10) ,Y(0: 10) , INDMIN , INDMAX 
DTRAD=ATAN(1. )/45. 

DO 10 1=0,10 
X(I)=REAL(l) 

10 Y( I )=ABS ( LOO . *C0S (X( I ) *18 . *DTRAD) ) 

IDEV=1 

CALL LEZIN I ( IDEV) 

NVALS=1 1 
TITLE= 

+ 'P[BLC]L0T OF Y=[F0NT=24] [ELC ] B [FONT] 100 [BLC ] COS L8X' / / 

+ ' [FONT=24] [ELC]B' 

IAXLBL='I [BLC INDEPENDENT DATA ON THE X-AXIS' 

DAXLBL= ' D [ BLC ] EPENDENT DATA ON THE Y-AXIS' 

INDMIN-X(O) 

INDMAX-X(IO) 

DEPMIN=Y(5) 

DEPMAX=Y(10) 

INDHV=1 

LINAPP=1 

CALL LEZL IN( X, Y,NVALS,TITLE, I AXLBL,DAXLBL, INDMIN, 

+INDMAX.DEPMIN ,DEPMAX,INDHV,LINAPP) 

IHV=2 
NDEC=-3 
TSTART=Y (5) 

TINCR=10.0 

TEND=Y(10) 

NTMINR=4 

CALL LEZAXN(IHV,NDEC,TSTART,TINCR,TEND,NTMINR) 

CALL LEZN0T( 'DCLIN4' , 7 . ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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Figure 3 -8. Linear chart with a specified numeric axis. 
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3.2.6 Linear Chart with a Character Axis 


It is often desirable to override the default numeric axis labels with character 
axis labels. The labels could represent text values (e.g., the months of year) or 
numeric values in the form of character representation (e.g., pi, a format not 
provided by the LEZ routines). 


There are only five LEZ routines necessary to obtain a line chart with a 
character axis . The calls necessary are: 

LEZINI 

LEZLIN 

LEZAXT: Overrides the default numeric mark labels, and specifies 

user-supplied text mark labels for an axis. This routine can be 
used for either or both a<es. This routine only changes the 
axis appearance, it does not change the corresponding 

data coordinate system! 

LEZSHW 

LEZTRM 
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The following program generates figure 3-9 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 

PROGRAM DCLIN5 

CHARACTER T ITLE*80 , IAXLBL*80 , DAXLBL*80 ,LABELS*80 
REAL P1(25),SSIN(25) , INDMIN , INDMAX 
WPI=ACOS(-l. ) 

DO 10 1=1,25 
RI = I 

PI(I)=(RI-1. )*(WPI/12. ) 

SSIN(I)=SIN(PI(I>) 

10 CONTINUE 
IDEV=1 

CALL LEZINI(IDEV) 

NVALS=25 

TITLE='S (BLC ] INE PLOT' 

IAXLBL= 'P [ BLC ] ERIOD IN RADIANS' 

DAXLBL='T[ BLC ]RIG0 NOMETRIC VALUES' 

INDMIN=PI (1) 

INDMAX=PI(25) 

DEPMIN=-2.0 

DEPMAX=2.0 

INDHV=l 

LINAPP=l 

CALL LEZL1N( PI , SS IN .NVALS .TITLE , I AXLBL , DAXLBL , INDMIN, 

+INDMAX , DEPM LN , DEPMAX, INDHV , LINAPP) 

IHV=1 

NLABS=3 

LABELS='$0$ [F0NT=9] [BLC]Q$2[FONT=9] [BLC]Q$' 

NTMAJR=3 

NTMINR=3 

CALL LEZAXT( IHV ,NLABS .LABELS ,NTMAJR,NTMINR) 

IHV=2 
NDEC=-1 
TSTART=-2 . 0 
TINCR=1 .0 
TEND=2 . 0 
NTMINR=4 

CALL LEZAXN ( IHV , NDEC .TSTART .TINCR .TEND, NTMINR ) 

CALL LEZNOT ( 'DCLIN5' , 7 . ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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Figure 3-9. Linear chart >vith a character axis. 
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3.2.7 Linear Chart with a Kev 


When more than one data set is displayed in the same chart, a key is often 
used to distinguish the data sets. This section describes how to generate a 
linear chart with a key. 

There are only five LEZ routines necessary to obtain a line chart with a key . 

The calls necessary are: 

LEZINI 

LEZLIN 

LEZKEY: Initiates the creation cf a key for the chart. There can be 

only one key per chart. The location of the key is specified 
in this routine by an XY position about which the key wiil be 
justified. The key can be put anywhere on the page, keeping in 
mind that it will overwrite any plotting done at that position. 

LEZDAT: Adds an additional dependent data set to the chart. The 

relationship among dependent data sets is absolute. If a key is 
used for the chart, the key entry associated with this data set is 
supplied by this routine. Note, this routine is optional . 

LEZSHW 

LEZTRM 
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The following program generates figure 3-10 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the user 
with an example of how to use the LEZ routines. A fully commented listing of this 
program is found in Appendix B. 

PROGRAM DCLIN6 

CHARACTER TITLE *80, IAXLBL*80,DAXLBL*80,LABELS*80,KENTRY*80 
REAL PI(25),SSIN(25) , INDMIN , INDMAX,CCOS(25) 

WPI=AC0S(-1. ) 

DO 10 1=1,25 
RI = I 

PI(I) = (RI-1. )*(WPI/12. ) 

SSIN(I)=SIN(PI(I)) 

CCOS( I )=COS ( PL( l ) ) 

10 CONTINUE 
1DEV=1 

CALL LEZ INI ( [DEV ) 

NVALS=25 

TITLE='P[BLC]LOT OF TRIGONOMETRIC FUNCTIONS' 

IAXLBL='P[ BLC ]ERI0D IN RADIANS' 

DAXLBL= 'T [ BLC ] RIGO NOMETRIC VALUES' 

INDMIN-PI(l) 

INDMAX=PI(25) 

DEPMIN=-2.0 
DEPMAX=2 . 0 
INDHV=1 
LINAPP=1 

CALL LEZL IN(PI,SSIN, NVALS , TITLE , IAXLBL , DAXLBL , INDMIN , 

+INDMAX , DEPMIN , DEPMAX, INDHV ,LINAPP) 

TITLE® 'K[ BLC ]EY OF FUNCTIONS' 

XP0S=5 . 25 
YP0S=6. 4 

KENTRY=' (BLC ]Y=SIN(X) ' 

CALL LEZK.EY(TITLE ,XP0S , YPOS ,KENTRY ) 

NVALS=25 
IDTREL=1 
I DTAPP= 1 

KENTRY='[BLC]Y=COS(X)' 

CALL LEZDAT (CCOS , NVALS , IDTREL , LDTAPP , KENTRY ) 

IHV=1 

NLABS=3 

LABELS®' $0$ [ FONT=9 ] [ BLC ] Q$2 [ FONT=9 ] [BLC ] Q$ ' 

NTMAJR=3 

NTMINR=3 

CALL LEZAXT( IHV.NLABS .LABELS ,NTMAJR,NTMINR) 
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Trigonometric values 


IHV=2 

NDEC=-1 

TSTART=-2.0 

TINCR*1.0 

TEND=2.0 

NTMINR=4 

CALL LEZAXN( IHV , NDEC .TSTART ,Tl iCR .TEND, NTMtNR) 
CALL LEZNOT('DCHN6',7. ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 



Period in radians 


Plot of trigonometric functions 

Figure 3-10. Linear chart with a key. 
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3.2.8 Logarithmic Charts 

This section describes how to generate logarithmic charts. There are only tour 
LEZ routines necessary to obtain a logarithmic chart. The calls necessary are: 

LEZINI 

LEZLOG: Establishes the chart as a logarithmic chart. This routine expects 

logarithmic data (i.e. the log of the data is to be performed prior to 
calling LEZLOG). 

LEZSHW 

LEZTRM 


LEZLOG can generate two kinds of logarithmic charts. The first type is a 
'log-log' chart which has a logarithmic independent axis and a logarithmic 
dependent axis. The second type is a 'semi-log' chart. A semi-tog chart has 
one linear axis and one logarithmic axis. The variable IAXTYP of LEZLOG, 
determines which kind. of logarithmic chart will be produced. Figure 3-11 
shows a semi-log chart generated using only the four necessary calls. 
Logarithmic charts can be modified using LEZDAT, and LEZKEY the same 
way linear charts can be modified. 


LEZLOG does not take the log (base 10) of the Incoming data. 


The following program generates figure 3-11, by calling only the necessary 
LEZ routines. This program is shown here in an uncommented form to provide 
the user with an example of how to use the LEZ routines. A fully commented 
listing of this program is found in Appendix B. 


PROGRAM DCLOG1 


CHARACTER TITLE*80, I AXLBL*80, 3AXLBL*80, IOPT*8 
LOGICAL LVALUE 

REAL FREQ( 100) ,POWER( 100) , IND1IN, INDMAX 
DATA (POWER(I), 1-1,76)/ 

+ 7066.0770323, 313987.5856597, 23005.34014683, 

+ 23314.47811626, 16222.72126054, 11123.46224798, 
+ 6533.280733426, 6567.484820724, 5931.92717933, 
+ 1075.542233512, 2304.552081512, 3938-878376374, 
+ 990.5827153465, 1139.692923046, 539.1035104119, 
+ 185.9121866205, 6922.275564162, 47871.80671708, 
+ 90151.05656181, 32565.81919631, 3126.25985372, 
+ 19139.27829711, 26311.51279586, 18051.10302768, 
+ 2769.064915013, 1114.906853713, 472.3435990609, 
+ 224.6112529072, 292.8078714819, 913.1650006148, 
+ 763.25.38952391, 1036.757022708, 2318.840862193, 
+ 1546.468077257, 30998.790181 H, 90446.39960755, 


25971.13637497, 

8573.673551723, 

3100.185764845, 

2372.668800947, 

186.2399260743, 

101610.8109471, 

537.8.883275207, 

7595.925085295, 

336.5553643497, 

1111.290988571, 

1815.115702427, 

99542.65318885, 
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+ 46517.56984878, 8264.407149583, 477.4873134733, 82.183079214, 

+ 67.7501808438, 136.6466583528, 197.6147132091, 229.3505457034, 

+ 643.2165902202, 1824.921600301, 5246.018888617, 9355.942325835, 
+ 8240.202957789, 4042.516486596, 1615.454279283, 876.7523693048, 
+ 780.321551955, 869.2380712535, 806.9102907816, 1417.485863451, 

+ 13314.08558278, 42705.82833591, 56933.22987158, 34^22.64829539, 
+ 8369.70034301, 423.4410260173, 1721.308093883, 3815.021552281/ 

DATA (POWER(I) ,1=77,100)/ 

+ 3096.896818539, 1130.33337685, 351.6629052997, 323.9146852672, 

+ 496.8216394068, 716.3789266813, 707.1830537755, 395.452882063, 

+ 185.9595078555, 349.7278623283, 579.1256929328, 427.7957796537, 
+ 339.4866401359, 404.7726592585, 3303.494231505, 44732.3344563, 

+ 168132.2764905, 259620.2781873, 179647.069922, 51634.19154093, 

+ 4701.338454798, 220.74733211, 377.2257021375, 552.6383507909/ 

DO 1 1=1,100 
RI=I 

FREQ( I )=RI-1 . 

1 P0WER( I) =LOG10(POWER( I ) ) 

1DEV=1 

CALL LEZINI(IDEV) 

NVALS=100 

TITLE='P [ BLC ]OWER LEVEL VS. FREQUENCY' 

1AXLBL='F [ BLC JREQUENC Y , [ELC ]H[BLC ] Z' 

DAXLBL='P[BLC]OWER LEVEL' 

INDMIN=0.0 
INDMAX=100.0 
DEPMIN=LOG 10(6 5.0) 

DEPMAX=L0G10(290000. 0) 

IAXTYP=2 

1HL0GI=0 

1VL0GI=0 

1NDHV=1 

LINAPP=1 

CALL LEZLOG(FREQ, POWER, NVALS , TITLE, IAXLBL, DAXLBL, INDMIN, INDMAX, 
+DEPMIN .DEPMAX , IAXTYP , IHLOGI , IVLOGI , INDHV ,LINAPP) 

IHV=1 

I3=-3 

NDEC=I3 

TSTART=0.0 

TINCR=10 .0 

TEND=100.0 

NTMINR=1 

CALL LEZAXN(IRV, NDEC .TSTART ,TINCR,TEND,NTMINR) 

CALL LEZNO T ( 'DCLOG 1' , 7 . ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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3.2.9 lin g Chari Option s 


The routine LEZOPT provides a variety of options which enable the user to 
override the default chart appearance. Table 3-1 lists these options in 
alphabetical order. Additionally, this table includes the corresponding initial 
defaults. Examples using many of these options are found in Appendix B. 


Option 

Description 

lyp-e 

Default value 

BFILLD 

Whether to fill between lines 

Array of INTEGERS 

0 - do not fill 

1 - fill 

0 (do not fill) 

CLEAR 

To clear the screen or not 

LOGICAL 
TRUE. - to clear 
FALSE, - not to clear 

.TRUE, 
(to clear) 

COLOR 

Interior colors and line 
colors 

Array of INTEGERS 
(see DI-3000 color table) 

1 through 8 (cycled) 

DASH 

Dashed lines 

LOGICAL 
TRUE, -to dash 
FALSE. - not to dash 

FALSE. 

(not to dash) 

HAXLEN 

Horizontal axis length 

REAL 

2/3 * page width 

HTICPOS 

Horizontal tick mark positioning 

INTEGER 

0 - tick marks suppressed 

1 - above the axis 

2 - below the axis 

3 - above and below the axis 

1 (above the axis) 

HTLABR 

Horizontal tick mark rotation 

INTEGER 

0 degrees 

INTPAT 

Interior patterns 

Array of INTEGERS 

(see DI-3000 interior patlerns) 

15, 16, 18, 27, 28, 
30, 39, 40 (cycled) 

KEYJUST 

Key justification 

INTEGER 

1 - lower left 

2 - lower right 

3 - upper left 

4 - upper right 

4 (Upper right) 


Table 3-1 . LEZOPT options for line and/or Logarithmic charts. 
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Option 

Description 

Lee 

Default value 

UN PAT 

Line patterns 

Ar ay of INTEGERS 
(see NASA standards) 

1 through 8 (cycled) 

PAUSE 

To pause the screen or not 

LOGICAL 
. TRUE. - to pause 
.FALSE, not to pause 

TRUE. 

(to pause) 

RTAXiS 

To draw a right axis 

LOGICAL 

. TRUE. - to draw axis 
OALSE. not to draw axis 

FALSE. 

(not to draw axis) 

SYMNl 

Symbol number 

Ar ay of INTEGERS 
(s> e NASA standard) 

1 through 8 (cycled) 

SYMPIZ 

Symbol size 

Ar ay of REALS 

publication quality 

VAXLEN 

Vertical axis length 

Rt AL 

2/3 * page height 

VI ABUA 

Vertical axis label direction 

LOGICAL 

TRUE. - horizontal direction 
FALSE.- vertical direction 

FALSE 

(vertical direction) 

VTLABR 

Vertical tick mark rotation 

INTEGER 

0 degrees 

V7ICPGS 

Vertical tick mark positioning 

IN TEGER 

1 (right of the axis) 


) - tick marks suppressed 
I - right of the axis 
! - left of the axis 
( - right and left of the axis 


XORIG1N 

X-origin of the data space 

R :AL 

2/9 * page width 

YOFHGIN 

Y-origin of the data space 

R ;AL 

2/9 * page height 


! able 3 I. LEZOP i options for line and/or logarithmic charts (continued). 
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3.3 Bars Charts 
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All bar charts generated by the LEZ roi tines follow the previously described 
sequence of subroutine calls as shown in figure 3-2. There are two bar 
routines available, LEZBAR and LEZLBR. The LEZBAR routine produces bar 
charts with two numeric axes. The independent data set is used to plot the 
bars where that data value appears on the axis. Thus, the bars are not 
necessarily evenly spaced along the independent axis. The LEZLBR routine 
generates a character independent axis. The user inputs the alphanumeric 
labeis for each bar in the data set. The bars plotted with LEZLBR are evenly 
spaced along the independent axis. LEZAXN and LEZAXT can be used to 
modify all bar axis labels. However, altering the axis labels to differ from the 
corresponding data being represented is not recommended. 
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3.3.1 Steps Required to Generate Bar Charts 

Figure 3-13 shows a flow chart of the order in which the LEZ routines should 
be called to produce a bar chart. The optional routines LEZPGE which sets the 
page size, LEZFIL which sets the error and debug destinations, and LEZDB 
which sets the debug level will be described in detail later in Section 3.6. 

The following subsections (i.e., 3.3.2 through 3.3.6) provide an overview of the 
necessary and optional routines available to generate bars. The following 
pages provide a worded outline of how to produce various types of the basic 
bar chart. The routine names in bold are those which are of primary interest in 
that subsection. Unless otherwise stated, the bar charts shown in this section 
were produced by using only the necessary LEZ routines. The user is referred 
to Appendix A for a complete description of the LEZ routines , and their 
associated arguments. These examples , along with additional ones, appear in 
Appendix B with a listing of the source code which produced them. 

Although the LEZ line routines can be used to generate publication and/or 
viewgraph quality charts, please refer to section 1.6 for a list of considerations 
necessary to conform to those standards. 
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The following section provides a brief description of the LEZ routines pertaining 
to the bar charts. Although a more detailed description for each is given in 
Appendix A, each routine is illustrated in the following subsections. The 
following descriptions are intended to acquaint the user with the LEZ interface. 
The routines below are described in the order of use (see figure 3-13). 


LEZBAR: Establishes the chart as a bar chart such that the data and tick 

marks are placed at exact data locations on the axis. The bars are 
not necessarily evenly spaced. The tick marks are positioned 
beginning at the input minimums and ending at the input 
maximums. By default the tick marks afe not drawn on the 
independent axis and are drawn to the left on the dependent axis. 
There are 1 1 major tick marks on the dependent axis, 
or 


LEZLBR: Establishes the chart as a bar chart with evenly spaced bars and 

text tick mark labels on the independent axis. For the dependent 
axis, the tick marks are positioned beginning at the input 
minimums and ending at the input maximums. By default, 11 
major tick marks are drawn on the dependent axis, and not drawn 
on the independent axis. 

LEZKEY: Initiates the creation of a key for the chart. There can be 

only one key per chart. The location of the key is specified 
in this routine by an XY position about which the key will be 
justified. The key can be put anywhere on the page, keeping 
in mind that it will overwrite any plotting done at that position. 


LEZAXN: Overrides the default numeric tick mark labels, and specifies 

numeric tick mark labels for an axis. This routine is used to 
change the appearance of the axis (i.e., numeric tick mark labels 
and/or the number of major and minor tick marks). This routine 
can be used for either/or both axes. This routine does not change 
the corresponding data coordinate system! 

LEZAXT: Overrides the default numeric tick mark labels, and specifies 

user-supplied text tick mark labels for an axis. This 
routine can be used for either or both axes. 


LEZIND: Defines an additional independent array of data. 
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LEZDAT: 


LEZOPT: 


LEZSlZ: 


LEZNOT: 


Adds an additional dependent data set to the chart. The 
relationship among dependent data sets is absolute or additive. If 
a key is used for the chart, the key entry associated with this data 
set is supplied by this routine. 

Sets options to change the appearance of the current chart. Once 
the attributes have been changed, the new values are used for ali 
the following charts until they are changed again either by calling 
LEZOPT again or calling LEZINI. 

Changes the height, width, and gap of the text. This routine 
changes the size of the text used during the generation of the 
chart. This size remains in force until LEZSlZ is called again, or 
LEZINI is called (plotting the text characteristics back to the 
defaults). 

Defines and positions a note on the current chart. The note is 
displayed when LEZNOT is called, not in LEZSHW with the rest of 
the chart. The note may be placed anywhere on the page and 
may be rotated about an XV position about which the note will be 
justified. 

LEZSlZ may be called prior to this routine to change the text 
height, width, and gap. When refining the chart, if the screen is 
cleared after LEZSHW is called the notes must be input again if 
they are to appear on the cf art after the second call to LEZSHW. 
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3.3.2 Bar Chart with Defaults 

There are only four calls to LEZ routines necessary to obtain a bar chart using 
defaults . The calls necessary are: 

LEZINI 

LEZBAR: Establishes the chart as a bar chart such that the data and tick 

marks are placed at exact data locations on the axis. The bars are 
not necessarily evenly spaced. The tick marks are positioned 
beginning at the input minimums and ending at the input 
maximums. By default the tick marks are not drawn on the 
independent axis and are drawn to the left on the dependent axis. 
There are 1 1 major tick marks on the dependent axis. 

LEZSHW 

LEZTRM 

The figure 3-14 shows a bar chart with numeric axes, only the necessary calls 
were used to generate this chart. Note that the bars appear at the position on 
the axis that the independent data values appear. Thus, LEZBAR will plot the 
data as the user provides. This may result with bars and /or the corresponding 
labels overlapping one another. 

The following program generates figure 3-14 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 

PROGRAM DC BARI 

REAL INDMAX,INDMIN,TEMP(10) ,PRESS(10) 

CHARACTER IAXLBL*80 ,DAXLBL*80,TITLE*80 

DATA TEMP / 104 . , 108. , 1 12 . , 1 16 . , 120 . , 140 . , 144 . , 1 48 . , 152 . , 1 56 . / 

DATA PRESS /436 . 55 , 507 . 95 , 568. 95 , 554. ,515.3,517.25,589.35,537 .95, 
+ 510.45,479.7/ 

IDEV = 1 

CALL LEZINI (IDEV) 

NVALS = 10 

TITLE = 'L[BLC]0W PRESSURE FATIGUE TESTING' 

IAXLBL = 'T [ BLC ] EMPERATURE , [ BSUPJO [ESUP] [ELC]C' 

DAXLBL = 'P ( BLC ] RESSURE AT FAILURE, PSI' 

INDMIN = 100. 

INDMAX - 160. 

DEPMIN = 400. 

DEPMAX =600. 

INDHV = 1 
IBRAPP = 1 
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CALL LEZBAR(TEMP, PRESS, NVALS, TITLE , IAXL8L , DAXLBL , INDM IN , INDMAX , 
+ DEPM1N .DEPMAX, INDHV , IBS A?P) 

CALL LEZN0T('DCBARl',7. ,0. ,3,1,0) 

CALL L.EZSHW 
CALL LEZTRM 
STOP 
END 
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Figure 3-14. Bar chart using defaults. 
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3.3.3 Bar Chart with a Specified Numeric Axis 


Generating a bar chart using defaults may not produce suitable tick mark 
labels. 

There are only five calls to LEZ routines necessary in order to obtain a bar 
chart with a specified numeric axis . The calls necessary are: 

LEZINI 

LEZBAR 

LEZAXN: Overrides the default numeric tick mark labels, and specifies 

numeric tick mark labels for an axis. This routine is used to 
change the appearance of the axis (i.e., numeric tick mark labels 
and/or the number of major and minor tick marks). This routine 
can be used for either axis. 

LEZSHW 

LEZTRM 

Figure 3-15 shows a bar chart with numeric axes, the independent axis 
produced using LEZAXN. 

The following program generates figure 3-15 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 

PROGRAM DCBAR2 

REAL INDMAX, INDMIN,TEMP( 10) ,PRESS(L0) 

CHARACTER IAXLBL*80 ,DAXI.BL*80, TITLE *80 

DATA TEMP / 104 . , 108 . , 1 12 . , 1 16. , 120 . , 140. , 144. , 148 . , 152 . , 156 . / 

DATA PRESS /436 . 55 , 507 . 95 , 568 . 95 , 554 . ,515.3,517.25,589.35,537.95, 

+ 510.45,479.7/ 

IDEV = 1 

CALL LEZINI (IDEV) 

NVALS =* 10 

TITLE - 'L[BLC]0W PRESSURE FATIGUE TESTING' 

IAXLBL => 'T [BLC JEMPERATURE , [BSUP]0 [ESUP] [ELCJC' 

DAXLBL = 'P [ BLC ] RESSURE AT FAILURE, PSI' 

INDMIN = 100. 

INDMAX = 160. 

DEPMIN = 400. 

DEPMAX » 600. 

INDHV * 1 
IBRAPP =* 1 

CALL LEZBAR(TEMP, PRESS, NVALS, TITLE, IAXLBL, DAXLBL, INDMIN, INDMAX, 

+ DEPMIN, DEPMAX, INDHV, IBRAPP) 
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NDEC \ _ 3 ORKiMAL PAGE !S 

tstart = aoo. OF POOR QUALITY 

T1NCR = 10. 

TEND = 600. 

NTMINR = 0 

CALL LEZAXN ( IHV.NDEC, TSTART, Tit CR, TEND, NTMINR) 
CALL LEZN0T('DCBAR2', 7. ,0. ,3,1,0) 

CALL LEZSHM 
CALL LEZTRM 
STOP 
END 
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Figure 3-1 5. Bar chart with a specified numeric axis. 
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3.3.4 Bar Chart with a Specified Character Axis ( LE2LAXD 


It is often desirable to override the default numeric axis labels with character 
axis labels. 

There are only five calls to LEZ routines necessary to obtain a bar chart with a 
specified character axis without using LEZLBR. The calls necessary are: 

LEZINI 

LEZBAR 

LEZAXT: Overrides the default numer c tick mark labels, and specifies text 

tick mark labels for an axis. This routine can be used for either or 
both axes. 

LEZSHW 

LEZTRM 

Fiaure 3-16 shows a bar chart with a character independent axis produced 
using LEZAXT. 



The following program generates ficjure 3-16 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 


PROGRAM DCBAR3 

REAL INDMAX, INDMIN 

REAL TEMP(IO), PRESS (10) 

CHARACTER*80 IAXLBL, DAXLBL, TITLE, LABELS 
DATA TEMP /104 . , 108. , 112. , 116. , 120. , 140. , 144. , 148. , 152 . , 156. / 
DATA PRESS /436 . 55 , 507 . 95 , 568 . 95 , 554 . ,515.3,517.25,589.35,537.95, 
+ 510.45,479.7/ 

IDEV = 1 

GALL LEZINI (IDEV) 

NVALS = 10 

TITLE = 'L [ BLC JOW PRESSURE FATIGUE TESTING' 

IAXLBL » 'T [ BLC ] EMPERATURE , [ BSUP ]0 [ESUP 1 [ELC )C' 

DAXLBL - 'PfBLC RESSURE AT FAILURE, PSI' 

INDMIN = 100. 

INDMAX = 160. 

DEPMIN = 400. 

DEPMAX = 600. 

INDHV =1 
IBRAPP = 1 

CALL LEZ BAR (TEMP , PRESS , NVALS .TITLE , IAXLBL, DAXLBL, INDMIN, INDMAX , 

+ DEPMIN, DEPMAX, INDHV, IBRAPP) 

IHV = 1 
NLABS * 15 

LABELS = '$ $T1$T2$T3$T4$T5$ $ $ $ $T10$T11$T12$T13$T14$' 

NTMAJR =16 
NTMINR = 1 

CALL LEZAXT (IHV, NLABS, LABELS, NTMAJR, NTMINR) ' 

IHV - 2 
NDEC = -3 
TSTART = 400. 

TINCR =10. 

TEND = 600. 

NTMINR = 0 

CALL LEZAXN (IHV, NDEC, TSTART, TINCR, TEND, NTMINR) 

CALL LEZNOT('DCBAR3',7. ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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Figure 3-16. Bar chart with a spec ified character axis (LEZAXT). 


3.3.5 Bar Chart with a Character Axis 


There are only four calls to the LEZ routines necessary in order to obtain a bar 
chart with a character axis . The calls necessary are: 

LEZINI 

LEZLBR: Establishes the chart as a bar chart with evenly spaced bars and 

text tick mark labels on the independent axis. For the dependent 
axis, the tick marks are positioned beginning at the input 
minimums and ending at the input maximums. There are eleven 
major tick marks on the dependent axis . By default tick marks are 
drawn on the left of the dependent axis, and not drawn on the 
independent axis. 

LEZSHW 

LEZTRM 

NOTE: LEZAXT and LEZAXN cannot be used to modify the character axis set up 
in LEZLBR. 

Figure 3-17 shows a bar chart with a character independent axis produced 
using LEZLBR. 

The following program generates figure 3-17 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines.. A fully commented listing 
of this program is found in Appendix B. 

PROGRAM DCBAR4 

REAL TEMP(IO) , PRESS(IO) 

CHARACTER*80 IAXLBL , DAXLBL, TITLE, LABELS 
DATA TEMP /104. ,108. , 112. , 116. , 120. , 140. , 144. , 148. , 152. , 156. / 

DATA PRESS /436 . 55 , 507 . 95 , 568 . 95 , 554. ,515.3,517.25,589.35,537.95, 

+ 510.45,479.7/ 

IDEV =* 1 

CALL LEZINI (IDEV) 

NVALS = 10 

TITLE = 'L[BLC]0W PRESSURE FATIGUE TESTING' 

LABELS = '$104$ 108$ 11 2$ 11 6$ 120$ 140$ 144$ 148$ 152 $156$' 

IAXLBL = 'T [ BLC ] EMPERATURE , [BSUPJO [ESUP] [ELC]C' 

DAXLBL = ' P [ BLC ] RESSURE AT FAILURE, PSI' 

VALMIN =400. 

VALMAX = 600. 

INDHV = 1 
IBRAPP = 1 

CALL LEZLBR(PRESS, NVALS .TITLE, LABELS, IAXLBL, DAXLBL, 

+ VALMIN, VALMAX, INDHV, IBRAPP) 
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3.3.6 Bar Chart with a Key 


When more than one data set is displayed in the same chart, a key is often used 
to distinguish the data sets. This section describes how to generate a bar chart 
with key. 

There are only five calls to LEZ routines necessary to obtain a bar chart with a 
key . The calls necessary are: 

LEZINI 

LEZBAR or LEZLBR 

LEZKEY: Initiates the creation of a key for the chart. There can be 

only one key per chart. The location of the key is specified 
in this routine by an XY position about which the key will be 
justified. The key can be put anywhere on the page, keeping in 
mind that it will overwrite any plotting done at that position. 

LEZDAT: Adds an additional dependent data set to the chart. The 

relationship among dependent data sets is absolute or additive. If 
a key is used for the chart, the key entry associated with this data 
set is supplied by this routine. Note, this routine is optional . 

LEZSHW 

LEZTRM 

Keys are not necessary unless there is moie than one set of data being plotted 
on the same chart. The additional data sets can be plotted one of two ways on 
bar charts. The first way is to have additive bars - the bars are plotted one on 
top of the otner. The other way is to have absolute bars - the bars are plotted 
side-by-side. 
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The following program generates an absolute bar chart with a key (see figure 
3-18). The variable IDTREL of the routine LEZDAT determines whether the data 
set entered is regarded as absolute or additive. See Appendix A for a complete 
description of routine LEZDAT. 


PROGRAM DCBAR5 

REAL rEMP(10), PRES 1(10), PRES2(10) 

CHARACTER *80 KENTRY, IAXLBL , DAXLBL, TITLE, LABELS 
DATA TEMP / 104 . , 108 . , 1 12 . , 116 . , 1 20 . , 140. , 1 44 . , 1 48 . , 1 52. , 1 56 . / 

DATA PRES1 /436. 55, 507. 95, 568. 95, 554. ,515.3,517.25,589.35,537.95, 

+ 510.45,479.7/ 

DATA PRES2 /485. 0 1 , 580. 1 5, 496 . 33 , 466. 45 , 422 . 28 , 577 . 16 , 436 . 33 , 

+ 540.01,472.03,411.99/ 

IDEV = 1 

CALL LEZINl (IDEV) 

NVALS = 10 

TITLE = 'L [ BLC ]0W PRESSURE FATIGUE TESTING' 

LABELS = '$104$ 108$ l 12$ l 16$ 120$ 140$ 144$ 148$ 152 $156$ ' 

IAXLBL = 'T [ BLC ] EMPERATURE , [ BSUP JO [ESUP] [ ELC J C ' 

DAXLBL = 'P [ BLC j RES SURE AT FAILURE, PSI' 

VALM1N - 400. 

VALMAX = 600.0 
INDHV = 1 
IBRAPP = l 

CALL LEZLBR( PRES 1 , NVALS , TITLE .LABELS , IAXLBL , DAXLBL , 

+ VALM IN, VALMAX, INDHV, IBRAPP) 

TITLE = 'A[ BLC ]LL0YS' 

XPOS » 6.5 
YPOS =6.2 

KENTRY - 'T [ BLC ] YPE 1' 

CALL LEZKEY (TITLE, XPOS , YPOS .KENTRY) 

NVALS - 10 
IDTREL = 1 
IDTAPP = 1 

KENTRY =■ 'T[BLC] YPE 2' 

CALL LEZDAT ( PRES2 , NVALS , IDTREL , IDTAPP , KENTRY ) 

CALL LEZNOT ( 'DCBAR5' , 7 . ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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The following program generates an additive bar chart with a key (see figure 
3-19). The variable IDTREL of the routine LEZDAT determines whether the data 
set entered is regarded as absolute or additive. See Appendix A for a complete 
description of routine LEZDAT. 


PROGRAM DCBAR6 

REAL rEMP(lO), PRESl(lO), PRES2(LO) 

CHARACTER*80 KENTRY, IAXLBL, DAXLBL, TITLE, LABELS 
DATA TEMP / L04. , 108. , 1 12 . , 1 16. , 120. , 140. , 144. , 148 . , 1 52. , 1 56 . / 

DATA PRES 1 /4 36. 5 5, 507. 9 5, 568. 95, 554. ,515.3,517.25,589.35,537.95, 
+ 510.45,479.7/ 

DATA PRES2 /485. 01, 580. 15, 496. 33, 466. 45, 422. 28, 577. 16, 436. 33, 

+ 540.01,472.03,411.99/ 

IDEV = 1 

CALL LEZINI (IDEV) 

NVALS = 10 

TITLE = 'L [ BLC ]OW PRESSURE FATIGUE TESTING' 

LABELS = '$104$108$112$116$120$140$144$148$152$156$ ' 

IAXLBL = 'T [ BLC ] EMPERATURE , [ BSUP JO [ ESUP j [ELCJC' 

DAXLBL = 'P( BLC ]RESSURE AT FAILURE, PSI' 

VALMIN = 100. 

VALMAX = 1100.0 
INDHV = 1 
IBRAPP = 1 

CALL LEZLBR(PRES1, NVALS, TITLE, LABELS, IAXLBL, DAXLBL, 

+ VALMIN, VALMAX, INDHV, IBRAPP) 

TITLE = 'A(BLC]LLOYS' 

XPOS =6.2 
YPOS =7.0 

KENTRY = 'T[ BLC ] YPE 1' 

CALL LEZKEY (TITLE, XPOS , YPOS, KENTRY) 

NVALS = 10 
IDTREL = 2 
IDTAPP = 1 

KENTRY = 'T[ BLC] YPE 2' 

CALL LEZDAT (PRES2 , NVALS .IDTREL , IDTAPP .KENTRY ) 

CALL LEZN0T('DCBAR6' ,7. ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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3.3.7 Bar Chart Options 


The routine LEZOPT provides a variety of options which enable the user to 
override the default chart appearance. Table 3--2 lists these options in 
alphabetical order. Additionally, this table includes the corresponding initial 
defaults. Examples using many of these options are found in Appendix B. 


Option 

Description 

lyge 

Default value 

CLEAR 

To clear the screen or not 

LOGICAL 
TRUE. - to clear 
FALSE. - not to clear 

.TRUE, 
(to clear) 

COLOR 

Interior colors and line 
colors 

Array of INTEGERS 
(see DI-3000 color table) 

1 through 8 (cycled) 

DASH 

Dashed lines 

LOGICAL 
TRUE. - to dash 
FALSE. - not to dash 

.FALSE. 

(not to dash) 

HAXLEN 

Horizontal axis length 

REAL 

2/3 * page width 

HTICPOS 

Horizontal tick mark positioning 

INTEGER 

0 - tick marks suppressed 

1 inside data space 

2 - outside of data space 

3 - both inside and outside 

1 (above the axis) 

HTLABR 

Horizontal tick mark rotation 

INTEGER 

0 degrees 

INTPAT 

Interior patterns 

Array of INTEGERS 

(see DI-3000 interior patterns) 

15, 16, 18, 27, 28, 
30, 39, 40 (cycled) 

KEYJUST 

Key justification 

INTEGER 

1 - lower left 

2 lower right 

3 - upper left 

4 - upper right 

4 (Upper right) 


Table 3-2. LEZOPT options for bar charts. 
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Option 

Description 

Type 

Default value 

PAUSE 

To pause the screen or not 

LOGICAL 
TRUE, -to pause 
FALSE. - not to pause 

.TRUE. 

(to pause) 

RTAXIS 

To draw a "right" axis 

LOGICAL 

TRUE. - to draw axis 
FALSE. - not to draw axis 

.FALSE. 

(not to draw axis) 

VAXLEN 

Vertical axis length 

REAL 

2/3 * page height 

VLABDR 

Vertical axis label direction 

LOGICAL 

TRUE. - horizontal direction 
FALSE.- vertical direction 

FALSE. 

(vertical direction) 

VTLABR 

Vertical tick mark rotation 

INTEGER 

0 degrees 

VTICPOS 

Vertical tick mark positioning 

IN TEGER 

) - tick marks suppressed 
l - inside data space 
l - outside data space 
3 - both inside and outside 

1 (right of the axis 

XORIGIN 

X-origin of the data space 

REAL 

2/9 * page width 

YORIGIN 

Y-origin of the data space 

REAL 

2/9 * page height 


Table 3-2. LEZOPT options for bar charts (continued). 
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3.4 Pie Charts 

All pie charts generated by the LEZ routines follow the previously described 
sequence of subroutine calls as shown in figure 3-2. 

The LEZPIE routine draws a pie chart with or without exploded segments, and 
with quantity and/or percentage labels optionally displayed. There are two 
ways to denote information about pie segments. The first way is to put text 
labels on each pie segment. This is done by calling the LEZPLB routine once 
for each pie segment in the pie chart. The second way to denote pie segment 
information is by the use of a key. A call tc the routine LEZKEY establishes the 
key position, the key title, and the text for the first key entry. To input the text for 
the remaining pie segments LEZPLB must be called for each desired pie 
segment. Text labels for each pie segment are preferred if the chart is to be 
informative and clear. For this reason, it s strongly recommended that either 
LEZPLB and/or LEZKEY always be used wien making pie charts. 

For a description and example of pie segment labels see Section 2 (Basic 
Terms and Concepts). 

Meet with suj <?rvisor 
1.0 
ut?; 



Answer questloi * 
1 0 

17 8" 


Dally activntlf « 

Figure 3-20. Pie chart example. 
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3.4.1 Steps Required to Generate Pie Charts 

Figure 3-21 shows a flow chart of the order in which the LEZ routines should be 
called to produce a pie chart. The optional routines LEZPGE (which sets the 
page size), LEZFIL (which sets the error and debug destinations), and LEZDB 
(which sets the debug level) will be described in Section 3.6. 

The following subsections (i.e. , 3.4.2 through 3.4.4) provide an overview of the 
necessary and optional routines available to generate a pie chart. The following 
pages provide a worded outline of how to produce various types of the basic pie 
chart. The routine names in bold are those which are of primary interest in that 
subsection. Unless otherwise stated, the pie charts shown in this section were 
produced by using only the necessary LEZ routines. The user is referred to 
Appendix A for a complete description of the LEZ routines , and their associated 
arguments. These examples , along with additional ones, appear in Appendix B 
with a listing of the source code which produced them. 
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Figure 3-21 . The sequence of LEZ calls to generate a pie chart. 
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The following section provides a brief description of the LEZ routines 

pertaining to the pie charts. A more detailed description for each is given in 

Appendix A as well as illustrated in the following subsections. The following 

descriptions are intended to acquaint the user with the LEZ interface. 

LEZPIE: Establishes the chart as a pie chart. There is a limit of ten segments 

per pie chart. By default, labels are not plotted by each pie 
segment. Quantity and percent labels can be optionally displayed 
by inputting the appropriate values into the routine. 

LEZKEY: Initiates the creation of a key for the chart. There can be only one 

key per chart. The location of the key is specified in this routine by 
an XY position about which the key will be justified. The key can be 
put anywhere on the page, keeping in niind that it will overwrite any 
plotting done at that position. 

LEZPLB: Labels a pie segment with a text label and/or makes a key entry. A 

call to this routine, for each pie segment, is the only way a segment 
will have a text label or a key entry. If a key is used for the chart 
LEZPLB must be used to input all but the first key entry (which is 
entered through LEZPIE). 

LEZPQP: Changes the default format for the quantity and percent labels for 

pie segments. The formats can be any valid FORTRAN format 
specification. If the value cannot be plotted with the specification, 
the field for that value will be filled with asterisks. 

LEZOPT: Sets options to change the appearance of the current chart. Once 

the attributes have been changed, the new values are used for all 
charts until they are changed again either by calling LEZOPT again 
or by calling LEZINI. 

LEZSIZ: Changes the height, width, and gap of the text. This routine 

changes the size of the text used during the generation of the chart. 
This size remains in force until LEZSIZ is called again or LEZINI is 
called (resetting the text characteristics back to the defaults). 
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LEZNOT: 


Defines and positions a note on the current chart. The note is 
displayed when LEZNOT is called, not in LEZSHW with the rest of 
the chart. The note may be placed anywhere on the page and may 
be rotated about an XY position about which the note will be 
justified. 

LEZSIZ may be called prior to this routine to change the text height, 
width, and gap. When refinirg the chart, if the screen is cleared after 
LEZSHW is called the notes must be input again if they are to 
appear on the chart after the second call to LEZSHW. 
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3.4.2 Pie Chart with Segment Labels 


This section describes how to generate a basic pie chart with pie segment 
labels. 

There are only five calls to the LEZ routines necessary in order to obtain a pie 
chart with segment labels . The calls necessary are: 

LEZINI 

LEZPIE: Establishes the chart as a pie chart. There is a limit of ten 

segments per pie chart. Pie segment text labels are only 
displayed by calling LEZPLB for each segment. Quantity and 
percent labels can be optionally displayed inputting the 
appropriate values into the routine. 

LEZPLB: Labels a pie segment with a text label and/or makes a key entry. 

A call to this routine, for each pie segment, is the only way a 
segment will have a text label or a key entry. If a key is used for 
the chart LEZPLB must be used to input all but the first key entry 
(which is entered through LEZPIE). 

LEZSHW 

LEZTRM 

The following program generates figure 3-22 using the necessary calls to the 
LEZ routines. This program is shown here in an uncommented form to provide 
the user with an example of how to use the LEZ routines. A fully commented 
listing of this program is found in Appendix B. 

The following program generates a pie chart with pie segment text labels . The 
routine LEZPLB determines if a pie segment is to have a text label. See 
Appendix A for a complete description of LEZPLB. 

PROGRAM DCPIEl 
REAL SEGS(6) 

CHARACTER*80 TITLE, KENTRY, LABEL, KEY 
DATA SEGS/0.5, 1.2, 1.0, 3.2, 1.6, 1.5/ 

IDEV = 1 

CALL LEZINI (IDEV) 

TITLE = 'D[BLC]AILY ACTIVITIES' 

NUM = 6 
NEXPI = 0 
NEXP2 = 0 
LF0RM1 = 1 
LF0RM2 = 1 
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CALL LEZPIE (SEGS ,NUM , TITLE .NEXPl , '-IEXP2 , LE0RM1 ,LFORM2 ) 
NOPLB = 4 

LABEL = "M [BLC) AIN PROJECT' 

KEY = ' ' 

CALL LEZPLB (NOPLB .LABEL, KEY) 

CALL LEZPLB ( 1 , 'S [ BLC JECOND PROJECT',' ') 

CALL LEZPLB ( 6 , '0 [ BLC ]THERS ' , ' ') 

CALL LEZPLB (2, 'S [BLC ]UPERVISE WORKERS , ) 

CALL LEZPLB ( 3 , 'M [ BLC ] EET WITH SUI ERVISOR' , ' ') 

CALL LEZPLB ( 5 , ' A [ BLC ] NSWER QUESTIONS',' ) 

CALL LEZN0T('DCPIEl',7. ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 

END Meet with supervisor 

1.0 

11 . 1 % 



Answer questions 
1.6 
17 . 0 % 


Daily activities 

Figure 3-22. Pie chart with segment labels. 
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3.4.3 Pie Chart with Exploded Pie Segments 


This section describes how to generate a pie chart with exploded pie 
segments. Exploded segments are segments which ire offset from the center 
of the pie. These segments are used to emphasize a portion of the overall. For 
a description and example of exploded segments, see section 2 (Basic Terms 
and Concepts). 

To explode a pie segment (i.e., partially remove segments from the whole pie), 
the user must pass the starting and ending segments number via the NEXP1 
and NEXP2 variables in routine LEZPIE (see Appendix A for a complete 
description of LEZPIE). 

The following program generates figure 3-23 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented 
listing of this program is found in Appendix B. 

PROGRAM DCPIE2 
REAL SEGS ( 6 ) 

CHARACTER*80 TITLE, KENTRY, LABEL, . KEY 
OAT A SEGS/0.5, 1.2, 1.0, 3.2, 1.6, 1.5/ 

IDEV = 1 

CALL LEZINI (IDEV) 

TITLE = 'D[ BLCJAILY ACTIVITIES' 

NUM = 6 
NEXP1 = 2 
NEXP2 - 3 
LFORM1 = 1 
LFORM2 = 1 

CALL LEZPIE (SEGS , NUM .TITLE , NEXPl ,NEXP2 , LFORM1 , LFORM2 ) 

NOPLB = 4 

LABEL = 'M [ BLC ] AIN PROJECT' 

KEY = ' ' 

CALL LEZPLB (NOPLB , LABEL , KEY) 

CALL LEZPLB ( 1 , 'S [ BLC jECOND PROJECT',' ') 

CALL LEZPLB ( 6 , '0 [ BLC ] THERS ' , ' ') 

CALL LEZPLB ( 2 , 'S [ BLC j UPERVISE WORKERS',' ') 

CALL LEZPLB ( 3 , 'M [ BLC ] EET WITH SUPERVISOR',' ') 

CALL LEZPLB ( 5 , 'A [ BLC JNSWER QUESTIONS',' ') 

CALL LEZNOT('DCPIE2',7. ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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Figure 3*23. Pi? chart with exploded segments. 
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3.4.4 Pie Chart with a Key 

A key is often desired to provide information concerning each pie segment. 

There are only six calls to the LEZ routines necessary in order to obtain a pie 

chart wi th a key . The calls necessary are: 

LEZINI 

LEZPIE 

LEZKEY: Initiates the creation of a kay for the chart. There can be 

only one key per chart. The location of the key is specified 
in this routine by an XY pos tion about which the key will be 
justified. The key can be pet anywhere on the page, keeping 
in mind that it will overwrite any plotting done at that position. 

LEZPLB: Labels a pie segment with a text label and/or makes a key or 

key entry. A call to this routine, for each pie segment, is the only 
way a segment will have a text label or a key entry. If a key is 
used for the chart LEZPLB mi st be used to input all but the first 
key entry. 

L.EZSHW 

LEZTRM 

Figure 3-24 shows a pie chart with a key. Quantity and percent labels for each 

pie segment are displayed, but pie segment text labels are not displayed in this 

chart. 


3-7 5 




'> ,< r» v 

A 




I m FiohlED 



The following program generates figure 3-24 by calling only the necessary LEZ 
routines. This program is shown here in an uncommented form to provide the 
user with an example of how to use the LEZ routines. A fully commented listing 
of this program is found in Appendix B. 


PROGRAM DCPIE3 
REAL SEGS(6) 

CHARACTER*80 TITLE , KENTRY, LABEL, KEY 
DATA SEGS/0.5, L.2, 1.0, 3.2, 1.6, 1.5/ 

IDEV = L 

CALL LEZ INI (IDEV) 

TITLE = 'D[ BLC ] AILY ACTIVITIES' 

NUM = 6 
NEXP1 = 0 
NEXP2 = 0 
LF0RM1 = 1 
LF0RM2 = 1 

CALL LEZPIE ( SEGS , NUM .TITLE , NEXP l , NEXP2 , LFORM1 , LF0RM2 ) 
TITLE = ' P [ BLC ] RESENT RESPONSIBILITIES' 

XPOS =3.3 
YPOS =7.0 

KENTRY = 'S [BLC] ECONO PROJEKT' 

CALL LEZKEY (TITLE , XPOS , YPOS .KENTRY) 

NOPLB = 4 
LABEL = ' ' 

KEY = 'M [ BLC | A IN PROJECT' 

CALL LEZPLB (NOPLB , LABEL , KEY ) 

CALL LEZPLB (1,' ' , 'S [ BLC ] ECOND PROJECT') 

CALL LEZPLB (6,' ' , '0 [ BLC ]THERS ' ) 

CALL LEZPLB (2,' ' , 'S [ BLC ] UPERVISE WORKERS') 

CALL LEZPLB (3,' ' , 'M[BLC ]EET WITH SUPERVISOR') 

CALL LEZPLB (5,' ' , 'A{ BLC ] NSWER QUESTIONS') 

CALL LEZNOT('DCPIE3',7. ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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3.4.5 Pie Chart Options 


The routine LEZOPT provides a variety of options which enable the user to override 
the default chart appearance. Table 3-3 lists these options in alphabetical order. 
Additionally, this table includes the corresponding initial defaults. Examples using 
many of these options are found in Appendix B. “ 


Option 

Description 

lype 

Default value 

BFILLD 

Whether to fill pie segments 

Array of INTEGERS 

0 - do not fill 

1 - fill 

i (fill) 

CLEAR 

To clear the screen or not 

LOGICAL 
TRUE. - to clear 
FALSE. - not to clear 

TRUE, 
(to clear) 

COLOR 

Interior colors and line 
colors 

Array of INTEGERS 
(see DI-3000 color table) 

1 thru 8 (cycled) 

INTPAT 

Interior patterns 

Array of INTEGERS 

(see DI-3000 interior patterns) 

15, 16, 18, 27, 28, 
30, 39, 40 (cycled) 

KEYJUST 

Key justification 

INTEGER 

1 - lower left 

2 - lower right 

3 - upper left 

4 - upper right 

4 (Upper right) 

PAUSE 

To pause the screen or not 

LOGICAL 
TRUE. - to pause 
FALSE. - not to pause 

.TRUE. 

(to pause) 

RADIUS 

Radius of pie 

REAL 

2/9 * smallest 
page dimension 

XORIGIN 

X-origin of the data space 

REAL 

2/9 * page width 

YORIGIN 

Y origin of the data space 

REAL 

2/9 * page height 


Table 3-3. LEZOPT options for pie charts. 
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3.5 P.nmpnsite Charts 

This section provides a worded outline of how to C ° b a r P °harts C and pie 

composite chart is a collect, on of two , ormore ne c^rts ^ ^ ^ 

cortesponding S |TrocJram a is e p re^nted am Arlditional 

Appendix B along with a listing of the corresponding 
3.5.1 Gonsideiations NeM edjn£lannin^ 

A composite chart ,s one that " 

number of charts and the size of each chart must be raw V 
possible 

generating composite charts. 

The first thing that must be determined ,s, he page size on which , the charts are 

,o be plotted. The default cha nged once at the 

thought of as inches if desired, h P 9 ... LEZPGE. All of the chart 

beginning of the graphics s ® s ®. ,on , character height, axes height, 
components involving size and distanc - ( 9;- size< t0 display a 

axes lengths, symbol sizes, eta) are scale i based on ™ e 0 %. ze sh0 ^ be 

^ e C n h o a ugh" "Jo" rSaJthe ch» any Keys and/or notes desired on the 

chart. 

H is recommended that the page - 

region for Bach cha . )f routines is the same as for a 

"nglfl^er page °' However, certain options will probably be used when 
generating composite charts. 

Note tha, the calls to the L E Z routines are for -e " beared 

one call to LEZSHW between eac c ' aae the user must turn off 

after it is shown. When plotting multiple ch P ’ . the PA USE and 

«« KTvT- 

rtSI! Otherwise the "n" charts will no, appear 

on the same page. 
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In h rr?" be w" S LEZINI between each chart which will reinitialize the LEZ 
any calls to LEZTRM belwe^chart? ITleItrmT Td ^ ^ " ° * be 

“ t: 

end the graphics wiion ° V “ 33 ,be TOry lasl routi " e «« <° 


3,5 2 ~- gps Required t o G enerate Composite nhar tc 

rsSio!?t«" 25 ^ h0WS a flow chart of the order in Which the LEZ routines should bp 
o produce a composite chart. The optional routines LEZPGE fwhirh c t 

LEzKr 9 ? f !>• LE2RL (which sels the and Sug deshna io s, and 

do^menr S8 ' S the debU9 ' evel) wi " be described ia ^< a i' later in Ms 
The following subsections provide an overview of the necessarv mutinoc 

sr r rtsrs 

hose which are of primary interest in that subsection. - Unless otherwise stated 

a^y «ai;faar 


LEZPGE 


LEZINI 


Ml^ht t t h hl defa f P t 39e Si2e ‘ ThiS mUSt be the first LEZ rot Jtine 
called by the application program, and can only be called once 

during a graphics session. After LEZTRM has been called this 
routine can be called again. 3 ea ’ th s 

Thfs routme can be particularly useful in generating comoositP 
charts by enabling the user to define a specific page area on 
which to position multiple charts. 

Initialize the Common Graphics Library and the underlvinn 
graphics package. Sets the necessary defaults and indicates 
where the chart is to be drawn (metafile, screen, or both) The 
default page size is 7 0 -by-7 0 inches. ' e 
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LEZOPT: 


LEZSiZ: 


LEZNOT: 


LEZSHW: 


The call to LEZINI will reset the majority of LEZ and CGL related 
variables. It is therefore necessary to establish each subsequent 
chart independent from any attributes which may have been used 
in previous charts (e.g., the chart type, the axis length, the axis 
origin, etc.). 

Sets options to change the appearance of the current chart. Once 
the attributes have been changed, the new values are used for all 
charts until they are changed again either by calling LEZOPT 
again or by calling LEZINI. A complete list of options is given in 
Appendix A under LEZOPT. 

This routine provides two options which enable the user to 
generate composite charts: PAUSE and CLEAR. The PAUSE 
and CLEAR options allow t ie user to disable the pausing and 
clearing of the page (screen) such that additional charts can be 
produced. Thus, for the tint nth-1 charts, the CLEAR option 
should be disabled. On the last chart (the nth chart), the PAUSE 
and CLEAR option should be enabled. 

Changes the height, width, and gap of the text. This routine 
changes the size of the text to be plotted after it is called until this 
routine is called again or LEZINI is called. 

Defines and positions a note on the current chart. The note is 
displayed when LEZNOT is called, not in LEZSHW with the rest 
of the chart. The note may be placed anywhere on the page 
and may be rotated about its justification point by any whole 
angle amount. 

LEZSIZ may be called prior to this routine to change the text 
height, width, and gap. When refining the chart, if the screen is 
cleared after LEZSHW is caled the notes must be input again if 
they are to appear on the cha 1 after LEZSHW is called again. 

Draws the chart as it is currently defined by all previous LEZ calls. 
This routine may be called more than once between LEZINI and 
LEZTRM. This allows the user to view the chart as each new 
annotation and/or refinement s specified. 

The user can refine the cha t by making more calls to the LEZ 
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routines or the user can terminate the graphics session by calling 
LEZTRM. 

LEZTRM: Ensures that all graphics output is complete and terminates the 

Common Graphics Library and the underlying graphics package 
support systems. This must be the last LEZ routine called by the 
applications program. LEZINI may be called again after LEZTRM 
to start another creation of another chart. 

The use of LEZTRM will end and rewind the metafile. Therefore, if 
multiple frame (i.e., plots) are to be written to a metafile, then 
LEZTRM should be called after the last chart is generated. 



Figure 3-25. The sequence of LEZ calls to generate a composite chart. 
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3.5.3 Fxamole of 3 Composite Chad 

The following program generates a composite chart (i.e., multiple charts per 
page) This program is intentionally commented sparingly so the oser can locus 
on 9 the aspects necessary to construct a composite chart. Appendix B contains 
the identical program, except fully commented. 

The user should note the calls to LEZOPT just before the first LEZSHW 
Specifically the call to the PAUSE and CLEAR options enable multiple charts to 
he written on the same page without intervening pauses and clears. 
Additionally the user should recognize the need to alter the axes lengths (tie 
LEZOPT option VAXLEN), and the need to reposition the ax.s (the LEZOPT 
ootion YORIGIN) This example is intended only to provide an overview 
calling sequence The user is referred to Appendix A for a complete description 
of tlreLEZ routines, and Appendix B tor further examples ol composite chart. . 


PROGRAM DCM1X1 

CHARACTER TITLE *2 56 , I AXLBL*80 , DAX 
REAL SPAN (25), CL l FT (25), CDRAG( 25) 
DATA CLIFT/. 4748, .6962,. 8165, .910 
+1.146,1.170,1.187,1.199,1.207,1.2 
+1.163,1.142,1.117,1.094,1.076,1.0 

DATA CORAG/ .1674,-2426, .2827 , . 313 
+.3897, .3971 , .4021, .4056, .4077 , .40 
+ .3919, .3852, . 3776, . 3705, . 3652 , - 3' 
DAT A OMOMNT /-. 3639, -.4936, -.5 337, 

+-.4348, - .3902,-. 3404, -.2878, -.23: 

+-.02016,-02818, .07293,-1133, .148. 
RI—I.O 

DO 1 1=1,25 
Rl=RI+.04 
SPAN (I )=Rl 
IDEV-l 

CALL LEZINl ( IDEV) 

NVALS=25 

T1TLE='V l BLC JORTEX FLOW ABOUT A 
I AXLBL=' [ BLC ] 2Y/B' 

DAXLBL= ' P [ BIX J RQPERTIES FOR [FON 
INDMIN=1. 

INDMAX=1 . 

DEPM IN=0. 

DEPMAX=0. 

INDHV=1 

LINAPP=1 

CALL LEZL1N(SPAN, CLIFT, NVALS, I’ll 
+0FPMIN , DEPM AX, INDHV ,LINAPP) 


,BL*80,K.ENTRY*80 
,CMOMNT(23) , INDMIN , INDMAX 

2. . 9631. 1.005. 1.063. 1.112, 

LO, 1.209, 1.203, 1.193, 1.180, 

28. . 5721, 

7. . 3307. .3439. .3629. .3789, 

84,-4076, .4054, .4020, .3975, 
19,-3038/ 

-. 5454,-. 5263, -.4971,-. 4704, 

6,-. 1790, -.1246, -.07136, 

. , . 1774, .2022, .2261 , . 2264 ,-. 06216/ 


50[ BSUP ]0 [ESUP ] DELTA WING' 
C=9 ] [ BLC ] A (FONT ] =20 [BSUP ]0 


LE , 1AXLBL, DAXLBL, 1NDM IN, INDMAX , 
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NVALS=2 5 
IDTREL=l 
LINAPP=l 

KENTRY='C[ BSUB] [BLC]D' 

CALL LEZDAT (CDRAG , N VALS , IDTREL, LINAPP, KENTRY) 

NVALS=25 

IDTREL=*t 

HNAPP=1 

KENTRY-'C[BSUB] [BLC]M' 

CALL LEZDAT(CMOMNT , NVALS , IDTREL .LINAPP, KENTRY) 

CALL LEZOPT( 'PAUSE' ,0) 

CALL LEZO PT( 'CLEAR' ,0) 

VAXLEN=2 . 

CALL LEZO P T ( 'VAXLEN' , VAXLEN) 

Y0RG-I.2 

CALL LEZOPT( 'YORICIN' ,Y0RG) 

CALL LEZSHW 
DO 2 1=1,25 

C DRAG ( I ) =CDR AG ( l ) - ( SQRT ( ABS ( C DRAG( I ))))+. 7> 

CM0MNT( I ) =CMOMNT( I ) -(SQRT ( ABS (CMOMNT( I) ) ) )+. 3 
2 CLIFT (!) “CLIFT ( I )-(SQRT(ABS(CLlFT( I ))))+. 7 

IDEV=I 

CALL LEZLNI(IDEV) 

NVALS =2 5 
TITLE=' ' 

IAXLBL=' [BLCJ2Y/B' 

DAXLBL*'P [ BLC ] ROPERTIES FOR [ F0NT=9 1 [ BLC 1 A[ FONT ] =30 [ BSUP 10 ' 
INDMI N=1 . 

INDMAX-1. 

DEPMIN=0. 

DEPMAX=0. 

INDHV=L 

LLNAPP=1 

CALL LEZLIN( SPAN, CLIFT .NVALS, TITLE, IAXLBL , DAXLBL , INDM IN, INDMAX, 
+DEPMIN , DEPM AX, INDHV ,LINAP P) 

TITLE=' ' 

XP0S=7 .0 
YP0S=6. 7 5 

KENTRY='C[BSUB] [BLC] [FONT=ll]L' 

CALL LEZKKY (TITLE ,XPOS , YPOS .KENTRY) 

NVALS=25 
IDTREL= L 
LINAPP=I 

KENTRY='C [ BSUB ] [BLCJD' 

CALL LEZDAT(CDRAG, NVALS , IDTREL , LINAPP , KENTRY ) 

NVALS =2 5 
IDTREL=l 
LINAPP= I 

KENTR.Y='C [ BSUB ] [ BLC ]M' 

CALL LEZDAT(CMOMNT, NVALS .IDTREL, LINAPP, KENTRY) 
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CALL LEZOPT ( 'VAXLEN' , 2 . ) 

CALL LEZOPT('YORIGIN',4.0) 

CALL LEZNOT('DCMIXl',7. ,0. ,3, 1,0) 

CALL LEZSHW 

CALL LEZTRM 

STOP 

END 


C 


c 

d 



2y/b 



DCMIX1 

Figure 3-26. Example of a composite chart with multiple linear charts. 
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3.6 Frror Detection and De bugging Capabilities 

This section describes the LEZ routines' error detection and processing 
capabilities, and the LEZ debugging mechanism designed to facilitate the user in 
implementing a chart. 

A fundamental premise of the LEZ routines states that correct usage of the 
routines will generate a chart as described by this document. Correct us age 
consists of a proper sequence of calls with a proper set of routine arguments. 


3.6.1 Frror Detection 


The error detection mechanism implemented in the LEZ routines is passive, that is 
as errors are detected, error messages are written to a specified destination. There 
is no means of error inquiry, nor any means of user-definable error recovery. 

The errors detected by the LEZ routines are classified as non-fatal and fatal. 
Non-fatal errors are considered tolerable in that the LEZ routines can make 
suitable adjustments and continue processing. Fatal errors are those which are so 
severe that error recovery cannot occur, and the program terminates. 


An example of a non-fatal error is the changing of an axis length to exceed the 
page length. An appropriate error message will be written indicating that the 
information cannot be used. Typically, errors due to invalid values will result in the 
arguments being set to their defaults. An example of a fatal error would be to call 
LEZSHW prior to calling the line, bar, or pie routines. 

Fiqure 3-27 shows an example of the error detection and reporting features, along 
with the corresponding graphics output. Note, as shown by the following example, 
the default destination of the error messages is the output device (often overwriting 
the graphics output). Refer to section 3.6.3 for changing the destination of output. 
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The following program illustrates the LEZ error detection mechanism. 


PROGRAM DCDBL 

THE FOLLOWING PROGRAM IS A OPTIMIZED VERSION OF DCLIN1. 
(SEE DCLINI FOR A COMMENTED VERSION OF THIS PROGRAM.) 

NOTE: A CALL TO LEZOPT HAS BEEN MADE TO GENERATE AN ERROR. 
REAL X(0: LO) ,Y(0: 10) 

CHARACTER TITLK*80 
DTRAD=ATAN ( 1 . )/45. 

DO 10 1=0,10 
X( I ) =REAL ( I ) 

T( I ) =ABS ( 100 . *COS (X( I ) *18. *DTRAD) ) 

CALL LEZINI ( 1 ) 

TITLE= 

+ 'P[BLC]LOT OF Y= [ FONT=24 ] [ELC ] B [ FONT ] 100 [ BLC ] COS 1 8X' // 
+ ' [FONT=24 ] { ELC ]B' 

CALL LEZLIN(X,Y, 11, TITLE, 

+ 'I [BLC INDEPENDENT DATA ON THE X-AXIS', 

+ 'D[ BLC ]E PENDENT DATA ON THE Y-AXIS', 

+ X(0),X(l0),Y(5),Y(10),l,l) 

CALL LEZN0T('DCDBI',7. ,0. ,3,1,0) 

C THE NEXT CALL WILL CAUSE AN ERROR MESSAGE TO BE GENERATED. 
CALL LEZOPT( 'HAXLEN' ,12.) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 




Dependent data on the 


LEZOPT : THE LENGTH OF THE HORIZONTAL AXIS EXCEEDS THE PAGE WIDTH. 

THE ATTEMPTED HORIZONTAL LENGTH=12. 

THE CURRENT X-ORIGIN IS 1 555557555556; THE CURRENT PAGE WIDTH IS 7. 
THE CURRENT AXIS LENGTH OF 4.766666666667 WILL BE USED. 



0123456789 10 


Independent data >n the x — axis 


Plot of y= | 100cosl8x | 


Figure 3-27. The LEZ error detection mechanism. 
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Notes. 
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3.6.2 Debugging Capabilities 


The LEZ routine LEZDB provides a method for recording the calls to and the 
arguments of the LEZ routines. This enables the user to validate the sequence 
of LEZ calls, along with their arguments. Tnere are two debug levels: 0 (OFF) or 
1 (ON). Initially, the debug level is OFF (i.e. the default), but can be turned ON or 
OFF at any time. Thus, the user can control the amount and content of 
debugging output by setting the level to include or exclude sections of code to 
be monitored. To enable LEZ debugging, the user can enter 

CALL LEZDB(I) 

To disable LEZ debugging, the user can enter 
CALL LEZDB(O) 

When the debugging level in ON and a LEZ routine is entered, the following 
message(s) will be written: 

routine name: ENTER 

argument_1 : argument type VALUE= value 

argument_2(1 ) : argument type VALUE= value 

argument_3(EQ) : argument type VALUE= value 

where the lower-case strings will be replaced by actual values (see example on 
next. page). Note, when an argument is an array, then a one in parentheses 
("(1)") will follow the argument (see argument s above), and the first value of 
the array will be displayed. If an argument may vary in type depending on the 
context (e.g. INTEGER in one case, and REAL in another), then an "EQ” in 
parentheses ("(EQ)") will follow the argument (see argument_3 above), and the 
corresponding value of all applicable types will be displayed (see the following 
example). 

Similarly, when the debugging level in ON and a LEZ routine is exited, the 
following message(s) will be written: 

routine name: EXIT 

where routine name will be replaced with sn actual routine name (see example 
on next page). The above information validates the sequence of LEZ calls, 
along with the values and types of the corre sponding arguments. 
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The following program illustrates the debugging capability along with some 
sample output. 


PROGRAM DCDB2 

c the following program is a optimized version of DCLIN1 . 

C (SEE DCLINI FOR A COMMENTED VERSION OF THIS PROGRAM . ) 

c NOTE: A CALL TO LEZOPT HAS BEEN MADE TO GENERATE AN ERROR. 

c A CALL TO LEZDB HAS BEEN MADE. 

REAL X(0: 10) , Y(0: 10) 

CHARACTER TITLE*80 
DTRAD=ATAN ( I . )/45. 

DO 10 1=0,10 
X(I)=REAL(l) 

10 Y(I)=ABS(100.*COS(X(I)*18.*DTRAD)) 

q SgX LEZDB 'ON'. NOTE, BY DEFAULT MESSAGES ARE WRITTEN TO TAPE 

CALL LEZDB ( 1 ) 

CALL LEZINI ( 1 ) 

TITLE= „ . 

+ 'P [ BLC ] LOT OF Y=[FONT=24] [ELC ] B [ FONT] 100[ BLC JC0S18X // 

+ ' [F0NT=24 ] (ELC ]B' 

CALL LEZLIN(X,Y, LI, TITLE, 

+ 'I[BLC INDEPENDENT DATA ON THE X-AXIS', 

+ 'D[BLC ] EPENDENT DATA ON THE Y-AXIS', 

+ X(0),X(10),Y(5),Y(10),1,1) 

CALL LF.ZNOT ( ' DCDB2' , 7 . ,0. ,3,1,0) 

c THE NEXT CALL WILL CAUSE AN ERROR MESSAGE TO BE GENERATED. 

CALL LEZ0PT('HAXLEN',12. ) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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The following output reflects the debug output written by default to TAPL.77 
(logical unit 77). 

LEZDB : ENTER 


IDBLVL : 

INTEGER 

VALUE 

= 

1 

LEZDB: EXIT 
LEZINI : ENTER 

I DEV : 

INTEGER 

VALUE 

= 

1 

LEZFIL : ENTER 

ICODE : 

INTEGER 

VALUE 

= 

1 

LUN : 

INTEGER 

VALUE 

= 

6 

CFILE : 

CHAR* 10 

VALUE 

= 

OUTI UT 

LEZFIL: EXIT 
LEZINI: EXIT 
LEZLIN: ENTER 

INDARY(L) : 

REAL 

VALUE 

= 

0. 

DEPARY ( I ) : 

REAL 

VALUE 

= 

100 

NVALS : 

INTEGER 

VALUE 

= 

11 

TITLE : 

CHAR* ( * ) 

VALUE 

= 

P[ BLC ] LOT OF Y= [F0NT=24 ] [ELC ] B [ FONT ] 100 

BLC ] COS L8X[ FONT 
IAXLBL 

= 24 ] [ELC] B 
CHAR*( * ) 

VALUE 

_ 

I [BLC INDEPENDENT DATA ON THE X-AXIS 

DAXLBL 

CHAR* ( * ) 

VALUE 


D[B EC ) EPENDENT DATA ON THE Y-AXIS 

INDMIN 

REAL 

VALUE 

= 

0. 

INDMAX 

REAL 

VALUE 

= 

10. 

DEPMIN 

REAL 

VALUE 

= 

5 . 3 >0302858158E-1 3 

DEPMAX 

REAL 

VALUE 

a 

100- 

INDHV 

INTEGER 

VALUE 

= 

1 

LINEA 

INTEGER 

VALUE 

a 

1 

LEZLIN: EXIT 
LEZNOT: ENTER 

STRING 

CHAR* ( * ) 

VALUE 

a 

DCD M 

XPOS 

REAL 

VALUE 

= 

7. 

YPOS 

REAL 

VALUE 

= 

0. 

IHJST 

INTEGER 

VALUE 


3 

IVJST 

INTEGER 

VALUE 

ZS 

1 

IANG 

INTEGER 

VALUE 

= 

0 

LEZNOT: EXIT 
LEZOPT: ENTER 

OPTION 

INTEGER 

VALUE 

= 

haxlen 

IVALS(l) 

INTEGER 

VALUE 

= 

273/73108432265216 

IVALL'E(EQ) 

INTEGER 

VALUE 

= 

275/75108432265216 

RVALUE(EQ) 

REAL 

VALUE 

= 

12. 

LVALUE(EQ) 

LOGICAL 

VALUE 

= 

F 


LEZOPT: EXIT 
LEZSHW : ENTER 
LEZSHW : EXIT 
LEZTRM: ENTER 
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3.6.3 Destination of Output 


The routine LEZFIL enables the user to control the output destination of error 
and debug processing. Error messages, both fatal and non-fatal, are written by 
default to output device (i.e. the current display device). This is often 
undesirable as it will overwrite graphics output. To redirect LEZ error messaqe s 

the user can call 


CALL LEZFIL(1, logical unit, filer ame). 


The above call will inform the LEZ routines 10 redirect the subsequent LEZ error 
messages, indicated by the first argument, to the logical u DIl with the associated 
filename . If the file is not already open, LEZFIL will open the file with the 
appropriate filename and logical unit number as indicated. 


Debug messages are written by default to the file TAPE77 associated with the 
logical unit 77. To redirect LEZ debug mess ages the user can call 


CALL LEZFIL(2, logical unit, filename). 


The above call will inform the LEZ routines to redirect the subsequent LEZ 
debug messages, indicated by the first aigument, to the logical unit wit t e 
associated filename . If the file is not already open, LEZFIL will open the file with 
the appropriate filename and logical unit number as indicated. 


It is often advantageous to redirect output from several processes into a single 
output destination. This will provide the user with a single collection of 
information in the order in which the appropriate, processes were executed. 
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The following program illustrates the changing of the error and debugging 
destination. 


PROGRAM DCDB3 

C THE FOLLOWING PROGRAM IS A OPTIMIZED VERSION OF DCLIN1. 

C (SEE DCLINI FOR A COMMENTED VERSION OF THIS PROGRAM.) 

C NOTE: A CALL TO LEZOPT HAS BEEN MADE TO GENERATE AN ERROR. 

G A CALL TO LEZDB HAS BEEN MADE. 

REAL X(0: 10) ,Y(0: 10) 

CHARACTER TITLE*80 
DTRAD=ATAN( 1 . )/45. 

DO 10 1=0,10 
X( I )=REAL( I ) 

10 Y( I )=ABS( 100. *C0S(X(I)*l8. *DTRAD) ) 

C WRITE CGL ERROR MESSAGES TO UNIT 80, FILE 'TAPE80' 

CALL LEZFIL( l ,80, 'TAPE80') 

C WRITE CGL DEBUG MESSAGES TO UNIT 80, FILE 'TAPE80' 

CALL LEZFIL(2,80, 'TAPE80') 

C SET LEZDB 'ON'. NOTE, BY DEFAULT MESSAGES ARE WRITTEN TO 'TAPE7 7 ' 
CALL LEZDB( 1) 

CALL LEZINI(l) 

TITLE= 

+ 'P[BLC]LOT OF Y=[FONT=24] [ ELC ] B [ FONT | 100 f BLC 1C0S I 8X' // 

+ '[FONT-24] [ELC IB' 

CALL LEZLIN(X,Y, 11, TITLE, 

+ 'I [BLC INDEPENDENT DATA ON THE X-AXIS', 

+ 'D[ BLC ] EPENDENT DATA ON THE Y-AXIS', 

+ X(0),X(10),Y(5),Y(10),1,1) 

CALL LEZNOT( 'DCDB3' , 7 . ,0. ,3,1,0) 

^ TOE NEXT CALL WILL CAUSE AN ERROR MESSAGE TO BE GENERATED 
CALL LEZOPT( 'HAXLEN' , 12. ) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 
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Note, this example redirects both error and debugging messages and combines 
them on the same file for ease of debugging. The user could also write to the 
same unit, possibly delimiting sections of this file to examine carefully. 

LEZDB : ENTER 

IDBLVL : INTEGER VALUE = 1 

LEZDB: EXIT 
LEZINI : ENTER 

tDEV : INTEGER VALUE = 1 

LEZINI: EXIT 
LEZLIN: ENTER 

INDARY ( 1 ) : REAL VALUE = 0. 

DEPARY (I) : REAL VALUE = 100. 

NVALS : INTEGER VALUE = 11 

TITLE : CHAR* ( * ) VALUE = P[BLC]LOTOF Y= [F0NT=24 ] [ELC ] B [ FONT ] 100 

[BLC]C0S18X[ F0NT=24) [ELC ] B 

IAXLBL : CHAR*(*) VALUE = I [ BLC ] NDE PENDENT DATA ON THE X-AXIS 

DAXLBL : CHAR*(*) VALUE = D [ BLC ] E PENDENT DATA ON THE Y-AXIS 

INDMIN : REAL VALUE =0. 

INDMAX : REAL VALUE = LO. 

DEPMIN : REAL VALUE = 5 . 390 102858 158E- L 3 

DEPMAX : REAL VALUE = 100. 

INDHV : INTEGER VALUE = 1 

LINEA : INTEGER VALUE = 1 

LEZLIN: EXIT 
LF.ZNOT : ENTER 

STRING : CHAR*(*> VALUE = DCDB3 
XPOS : REAL VALUE = 7. 

YPOS : REAL VALUE = 0. 

IHJST : INTEGER VALUE = 3 

IVJST : INTEGER VALUE = 1 

IANG : INTEGER VALUE = 0 

LEZNOT: EXIT 
LEZOPT: ENTER 

OPTION : INTEGER VALUE = HAXLEN 

IVALS(l) : INTEGER VALUE = 275775108432265216 

IVALUE(EQ) : INTEGER VALUE = 27 577 5108432265216 
RVALUE(EQ) : REAL VALUE = 12. 

LVALUE (EQ) : LOGICAL VALUE = F 
LEZOPT: INVALID VALUE FOR OPTION "HAXLEN". 

THE LENGTH OF THE HORIZONTAL AXIS EXCEEDS THE PAGE WIDTH. 

THE ATTEMPTED HORIZONTAL LENGTH =12. 

THE CURRENT X-ORIGIN IS 1.555555555556; THE CURRENT PAGE WIDTH IS 7. 
THE CURRENT AXIS LENGTH OF 4.666666666667 WILL BE USED. 

LEZOPT: EXIT 
LEZSHW : ENTER 
LEZSHW : EXIT 
LEZTRM: ENTER 
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Notes. 
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4. Postprocessing Considerations 


This section gives basic information needed to postprocess plots generated by 
the LEZ routines. This section also describes what postprocessing capabilities 
are available, and what information is necessary in order to interface with the 
postprocessors. 

Most large-scale, general-purpose graphics packages provide the ability to 
generate and manipulate graphical information in an external file. Thus the 
user can generate interactive plots, and save the equivalent graphical 
representation on a file for later use. However, the ability to postprocess 
depends on a translator to convert the external file information into appropriate 
instructions to drive the physical device. Thus, the translator can take the same 
external file and plot (or display) it on several different display devices. 

4.1 Distortion and Scaling 

If the user requests, the LEZINI routine will flag the CGL to generate a metafile. 
In order to postprocess this metafile, tiie user should know the dimensions 
used to draw the image. The user is resoonsible for requesting the appropriate 
dimensions of the plotter, typically by matching the metafile's aspect ratio. All of 
the plotters regard a metafile's aspect rat o as its height to width (determined by 
the viewspace h Proper information will e nsure: 

a compatible aspect ratio between the page size and the device 
coordinate system. For example, a plot generated in a 7- by 7-inch 
page size should be plotted in an area of equal dimensions or 
square aspegt ratio to avoid cistortion. 

the scaling to be performed from the world coordinate to device is 
consistent (e.g., a 7- by 7- inch plot is sent to a plotting device 
and will be plotted on a 7- bv 7-inch region). 

The default page size is 7 by 7, which has a square aspect ratio. The user may 
alter this aspect ratio by the use of LEZF’GE; however, the user must ensure a 
compatible postprocessor aspect ratio when postprocessing the plot. The NGS 
software defaults to plot in the largest possible square on a given device. This 
ratio may be changed to meet specific needs. Since each plotter uses a 
different frame size, the physical dimensions of the square varies between 
devices. 
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The COMMON GRAPHICS LIBRARY offers routines which support commonly 
used aspect ratios, such as page size, and also allows the user the capability of 
setting an aspect ratio to meet specific requirements. 

Currently, the LEZ routines establish a default world coordinate system of 7- by 
7-units (e.g., inches). This implies the aspect ratio is 1 . To avoid distortion, the 
user should select a plotter aspect ratio of 1 . For example: 

PLOT. CAL, 1 1 (HEIGHT=7.,WIDTH=7.) 
or 

PLOT.CAL.1 1 (HEIGHTS 1 „WIDTH=1 1 .) 

The first plot instruction will plot the image on the CalComp 11" plotter in an 7- 
by 7-inch region (matching identically with the image area). The second plot 
instruction will plot the image in an 11- by 11 -inch region (proportionally 
enlarging all objects). 

4.2 Visual Characteristics 

Because of the variations in plotter characteristics, the user should try to use 
only enough colors to specifically address the needs of the plots. If 
monochrome copies are to be made, then line patterns and fill patterns should 
be clear enough so that the contents of the chart are distinguished easily by the 
reader. Care should also be taken to ensure that text is properly positioned on 
the page and is of sufficient size that it is legible. The text should be bold 
enough so that it may be copied by a photocopy device without losing any 
portion of a character. Viewgraphs should contain characters large and bold 
enough to be seen across a dark room. All of these items require planning in 
the design of a plot. Fortunately for the user, there are usually consistent 
requirements. Once the appropriate technique is selected, most plots will 
conform to standards, thus resulting in little or no change to the user's plot 
program. 
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4.3 DI-3000 Concepts as Related to Static Plotters 

The LEZ routines use DI-3000 as its underlying graphics package, and thus 
generates external files, called metafiles which can be postprocessed using 
the Metafile Translator. Thus, DI-3000 provides a device independent method 
of generating plots which can be displayed on several different devices 
(interactive or hardcopy) without the need of major code modifications. 

However, certain postprocessing limitations are present and need to be 
addressed. First, the availability of the devices is installation dependent, and 
the supported device drivers may further restrict this accessibility. Second, 
each device has inherent limitations (such as color, selective erase, and so 
forth), and these device dependent characteristics can have a major impact on 
the resultant output. Most notably, special considerations are needed to ensure 
that proper sizing or scaling is consistent between the constructed image and 
the plotted image. Specific information for devices are given in the device 
driver manuals [G-10]. 

The plotters vary in the quality and types of plots that are generated. The pen 
plotter provides smooth lines but limits the available colors. The pen plotter will 
also allow for varying the thickness of a line. The electrostatic plotters offer 
limited line thickness and also may not generate smooth curves because of the 
pixel resolution. This non-smooth problem is usually eliminated by generating 
larger plots and then having them reduced. 

4.4 Postprocessors 

The postprocessor is a separate program that reads a metafile, performs 
various operations on the file, and formats the data to a file that can be used to 
drive the specified graphics plotting device. 

The Metafile Translator is a plot postprocessor which is useful for previewing 
and editing of metafiles. The Metafile Translator is documented in the Metafile 
User's Guide [G-6], The Metafile Translator instructions allow more flexibility in 
how the metafile may be displayed. 

A special form of the Metafile Translator is the PLOT control statement which is 
available on the ACD central computers (CDC/NOS). The PLOT statement is 
documented in the ACD static plotter device driver manual [G-10]. 
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APPENDIX A 


DESCRIPTION OF THE; LEZ ROUTINES 


The LEZ routines are described in detail on the following pages. The following 
nformation is provided for each routine: 

Subroutine Name: 

The subroutines are listed in alphabetical order. The name of 
the routine appears at the top of the page on which the 
routine appears. 

Purpose: 

A brief description of what the routine is used for. 

Use: 

The structure of how to call the routine. Also a list of the 
parameters for that routine with a description of what they are 
and the types of values they accept. 

Restrictions: 

A list of restrictions c n the values passed to the parameters or 
on the use of that routine. 

Notes: 

Any further information that the user might have need to 
know. 


\ 
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Description of the LEZ Routines 


Appendix A 


LEZAXN - Specify Numeric Tick Mark Labels for an Axis 3 

LEZAXS - Override Numeric Tick Mark Labels with Scientific Labels 5 

LEZAXT - Override Numeric Tick Mark Labels with Text 7 

LEZBAR - Establish the Chart as a Bar Graph 9 

LEZDAT - Add Dependent Data Set to a Bar Chart or Line Chart 1 1 

LEZDB - Change the LEZ Debug Level 1 3 

LEZFIL - Change the Output Destination of Various Processes 1 4 

LEZGET - Get Values of LEZOPT and Other LEZ Related Attributes 1 6 

LEZIND - To Redefine the Independent Array for a Curve 1 8 

LEZINI - Initialize the Underlying DI-3000 and CGL Subroutines 1 9 

LEZKEY - To Initiate the Creation of a Key for the Chart 2 0 

LEZLBR - Establish the Chart as a Bar Graph with Text Labels 2 1 

LEZL1N - Establish the Chart as a Linear Graph 2 3 

LEZLOG - Establish the Chart as a Log Graph 2 6 

LEZNOT - Define and Position a Note on the Current Chart 2 9 

LEZOPT - Set Options to Change the Appearance of the Current Chart 3 0 

LEZPGE - Change the Default Page Size 3 8 

LEZPIE - Establish the Chart as a Pie Graph 3 9 

LEZPLB - Label a Pie Segment with Text, and/or Make a Legend Entry 4 1 

LEZPQP - Obtain Pie Segment Quantity and Percent Labels 4 2 

LEZSHW - Draw Current Chart 4 3 

LEZSIZ - Change the Current Character Heigth and Width 4 4 

LEZTRM - Terminate the Graphics Routines 4 5 
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CRiCW’.L PA3£ rs 

CF POOH QUALITY 

LEZAXN - Specify Numeric Tick Mr irk Labels For An Axis 


LANGUAGE: FORTRAN 7 7 

PURPOSE: To override the do ault tick mark labels, and 

specify numeric tl :k mark labels lor an axis. 

This routine allow; the user to change the axis tick 
mark appearance wi h numeric tick marks (i.e. the 
number of decimal >laees, the number of major tick 
marks and their values, and the number of minor tick 
marks ) . 

This routine only changes the axis tick marks, 
it does not change the corresponding data space. 

The user is therefore advised to maintain consistency 
between the data space and corresponding axis tick 
mark values. 

USE : CALL LEZAXN ( l HV ,Nl)EC , 1START , T I NCR , f END , NTM I NR ) 

where: IUV - An indicator of whether this call 

applies to the horizontal or vertical 
axis. 

IHV = 1 horizontal 

1.1 V •= 2 >vertical 

type: 1 NT EGER 

NDKC - Number of digits to tin* right ot the 
decimal point in the tick mark labels 
ot the axis. 

> 0 - Number of digits to the right 
of the dec » ma l po i u t . 

= 0 - be c i ma 1 no i n t on 1 y . 

< 0 - Display as integer 

(i.e. no decimal point). 

TSTART - 'He data value at which the first 
m< jor tick mark is to he placed, 
t ; pe : REAL 

TINCK - The increment in data units between 
major tick marks, 
type: REAL 

TEND - The last data value at which a major 
tick mark is to be placed, 
t pe: REAL 

N FM T NR - The number of minor tick marks to be 
p aced between each major tick 
in irk (ISfTM I NK >- 0). 
t pe: INTEGER 
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RES I’R f C L' IONS: This routine must be called after LEZLIN, LEZRAR, 

or LKZLKR. TSTART cannot equal TEND. TSTART can 
be Less than TEND to produce a decreasing axis. 
However, TINCR must then be negative (e.g. 
from 10.0 to -10.0 by increments of -2.0). 

ERRORS : 

LEZAXN : LHV OUT OF RANGE — MUST HE l OR 2. 

CALL TO LKZAXN IGNORED. 

LEZAXN: TSTART CANNOT EQUAL TEND. 

CALL TO LKZAXN IGNORED. 


LKZAXN : DKCRKAS ! NG AXIS MUST HAVE A NEGATIVE "T i NCR " . 
TSTART - t start 
TEND -tend 
TINCR = tincr 
CALL TO LKZAXN IGNORED. 

LKZAXN: TOO MANY MAJOR TICK MARKS REQUESTED. 

LIMIT ~ maxlab 

CHECK rSTART ,TENI) , AND TT NCR . 

f START « tstart 

TEND = tend 

TINCR = tincr 

[COUNT - i count 

CALL TO LEZAXN IGNORED. 


LEZAXN: INVALID VALUE FOR NTMTNR. NTMTNR- ntminr 
VALID RANGE IS INTEGER 0 OR GREATER 
CALL TO LKZAXN IGNORED . 


ORIGINAL PAGE 13 
OF POOR QUALITY 



LEZAXS - Override Numeric 


Tick Mai k Labels With Scientific Labels 


LANGUAGE: 
PURPOSE : 


USE: 


restrictions 


FORTRAN 77 

To override the default numeric tick mark labels for 
an axis with scientii ic tick mark labels. 

This routine allows he user to change the axis tick 
mark appearance with scientific tick marks (i.e. the 
number of major tick marks and their values, and the 
the number of minor i ck marks). 


This routine only ch inges the axis tick marks, 
it does not change tie corresponding data space. 

The user is therefore advised to maintain consistency 
between the data space and corresponding axis tick 
mark values. 

Note, the number of major tick marks is determined 
by IABS(NINT( (TEND- FSTART) /T1NCR) )+l • 

The number of decimal places to the right of the 
decimal point for each major tick mark is determined 
by N1NT(L0G10(A1 S(TSTART) ) ) - 

Note: this must be further refined.. 

CALL LEZAXS ( LHV ,T START ,T [NCR , TEND , I EXP , NTMINR ) 

where: 1 HV - An indicator of whether this call 

app ies to the horizontal or vertical 

a x i 

[HV = 1 Niorixontal 

I HV = 2 >verttcal 

t y p ; : 1 NTK< JR K 

T START - The beginning axis tick mark Label, 
ty p i? RRAL 

riNCK - The axis tick mark increment, 
type : R R A L 

'tK.ND -* The ending axis tick mark label, 

type: RhAL 

LKXP - The power of 10 the labels are to be 
raised to. 
ty I e: r NTF/ifiR 

NTMINR - The number of minor tick marks to be 
pi; c e d between each major tick 
maik. (NTMINR >= 0) 
type. : l NTKC1KR 


This routine must 'V called liter LI'.'/.LIN, 


LK/.LOG, or 


OF. POOR i 
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LKZLIIR. (This doesn't work for the axis from 
which the bars originate for LKZBAR. ) 

ERRORS : 

LKZAXS : I HV OUT OK RANGE- -MUST BE I OR 2 . 

CALL TO LKZAXS IGNORED. 

LKZAXS : TSTART CANNOT EQUAL TEND. 

CALL TO LKZAXS IGNORED. 

LKZAXS : DECREASING AXIS MUST HAVE A NEGATIVE "TINCR". 
TSTART = tstart 
TEND = tend 
TLNCR = tincr 
CALL TO LKZAXS IGNORED. 

LEZAXS : TOO MANY MAJOR ITCK MARKS REQUESTED. 

LIMIT •= max lab 

CHECK TSTART, L’ENI), AND TINCR. 

TSTART = tstart 
TEND = tend 
TINCR = tincr 
I COUNT = i count 
CALL TO LKZAXS IGNORED. 

LEZAXS: INVALID VALUE KOR NTMINR. NTMINR= ntminr 

VALID RANGE IS INTEGER 0 OR GREATER 
CALL TO LEZAXS IGNORED. 


ORIGINAL 
Of: FvOR Q 
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LEZAX.T 


I.ANGUACK 
PURPOSE : 


USE: 


Override Numeric Tick Mirk Labels With Text 
Tick Mark Labels 


KORTKAN 11 

To override the default numeric tick mark labels for 
an axis with text tick mark labels. 

This routine allows the user to change the axis tick 
mark appearance with character tick marks (i.e. the 
number of major tick marks and their values, and the 
the number of minor tick marks). 

This routine only changes the axis tick marks, 
it does not change the corresponding data space. 

The user is therefore advised to maintain consistency 
between the data space and corresponding axis tick 
mark values. 

Note, NLABS does not have to equal NTMAJR (i.e. the 
number of major tick marks and the number of labels). 
The number of majo* tick marks will be NTMAJR, but 
the corresponding Labels may vary. 

If NLABS is less t dan NTMAdK, then only the first 
NLABS major tick mirks w i. L L he labeLled (the rest 
will be blanked filled). 

M NLABS is greater than NTMAJK, then only the first 
NLABS major Lick, mirks will be labelled. 

CALL LEZAXT( l HV, NLABS, LABELS, NTMAJK ,NTMINR) 

where: IKV - Ar indicator of whether this call 

at plies to the horizontal or vertical 
a > i s . 

y tv = 1 >horizontal 

U v = 2 >vertica 1 

tv pe: INTEGER 

NLABS - The number of tick mark labels 
contained in the string LABELS . 
type : INTEGER 

LABELS - A D 1-3000 text string with NLABS 
libels, each label ending with 
a delimiter, containing text 

Libels for the axis designated by 1 HV 
Example: ( '$-4$-2$0$2$4$ ) l he 
b ‘ginning is optional but the 

ending is required, 

t /pe : CHARACTER 


7 



RESTRICTIONS: 
ERRORS : 

LKXAXT: 
LEZAXT : 
LEZAXT : 
LKZ AXT : 


NTMAJR - The number of major tick marks to be 
placed on the axis (end tick .marks 
inclusive). (NTMAJR >= 2) 
type : INTEGER 

NTMINR - The number of minor tick marks to be 
placed between each major tick 
mark. (NTMINR >= 0) 
type: I NTKGKR 

This routine must be called after LKZLIN , LEZBAR, or 
LKZLBR . 


1NVALH) VALUK KOR NLABS . NLABS = nlabs 
VALID RANGE IS I NTKGKR KROM l TO maxlab 
ROUTINE IGNORED. 

INVALID VALUE KOR NTMAJR. NTMAJR = ntmajr 
VALID RANGE IS INTEGER 2 OR GREATER. 
ROUTINE IGNORED. 

INVALID VALUE KOR NTMINR. NTMINR = ntminr 
VALID RANGE IS INTEGER 0 OR GREATER. 
ROUTINE IGNORED. 

INVALID VALUE KOR IHV. IIIV = ihv 
VALID RANGE IS INTEGER I OR 2. 

ROUTINE IGNORED. 
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LEZBAR - Establish The Chart As 


Bar Craph 


ORIGINAL PAGE IS 

OF POOR QUALITY 


I.ANCUACK: 

PURPOSE: 

USE: 


KORTKAN // 

To establish the chart as a bar graph such that the 
data and tick marks ar> placed at exact locations on tin 
axis (not evenly spaced). 

CALC LKZBAR( LNDARY , DEBAR Y,NVALS , TITLE , TAXLBL, DAXLBL, 

I NDM I N , I NDM \X, DEPMIN , DKPMAX, tNI)HV,TBRAPP) 

Where: 1NDARY - The bar chart independent 
variable data set. 
type: R ft AL 

DftPARY - The bar chart dependent variable data 
set . 

type : KKAL 

NVALS - The ni mber of values in INUARY 
and DIPARY. There will be 
NVALS bars, 
type: I NTLLK R 

TITiiL - used as the title line in the chart, 
t y p e * L H A R AC T ft R 

t AXLBL, 

DAXLBL - DI" 30' )0 text, strings to be 
used is the independent and 
dependent axis labels, respectively, 
ty po : THARAC PKR 

l NDM I N , 

INDMAX - The minimum and maximum values 

for t ae i ndepende n t variable axis, 
ty pe : TftAL 


DftPMlN , 

DEPMAX “ The Minimum and maximum values 

for the dependent variable axis, 
ty pe : RKAL 


INDHV - An indicator of whether the 

1 ndej endent va r i ah 1 e shou 1 d be 
placi d on t he horizontal or t tie 
ve r t i ca 1 axis. 

INDHV - 1 >iiOR IXONTAL 

INDHV =* 2 >VKRTICAL. 

type: INTKGKR 

LBRAPP “ An indicator of whether all 
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bars in the chart should be 
filled or unfilled. 

IBRAPP = 0 XJNFILLED 

1BRAPP = 1 >FILLED . 

type: INTEGER 


RESTRICTIONS: None. v 

ERRORS : 

LEZBAR: NVALS EXCEEDS LIMIT OF MAXIMUM TICK MARKS 
PROGRAM TERMINATED. 

LEZBAR: NVALS MUST BE 1 OR GREATER (INTEGER). 

PROGRAM TERMINATED. 

LEZBAR: INDHV OUT OF RANGE— MUST BE 1 OR 2. 

PROGRAM TERMINATED. 

LEZBAR: IBRAPP OUT OF RANGE; SHOULD = 0 OR 1. 

PROGRAM TERMINATED. 

NOTES: The bars are plotted in LEZSHW. 

The title of the plot is placed according to 
publication standards at the bottom of the page. 

By default, tick marks are not drawn on the 
independent axis, and are drawn to the left on the 
dependent axis. To override this default tick mark 
positioning, call LEZOPT with options HTICPOS and 
VTICPOS after this routine. 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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ORIGINAL PAGE IS 

OF poor quality 


LEZDAT - Add Dependent Data Set To A Bar Chart Or Line Chart 


LANGUAGE: FORTRAN 77 

PURPOSE : To add dependent dat; sets to a bar chart or line charL. 

USE: CALI. LK/.I)AT( OEPARY , NVALS , IDTRKL, l DTAPP, KKNTRY ) 

where: DEPAKY - an additional line or bar 

graph dependent variable d it a sot . 
type : REAL 

NVALS - the number of values in the 
array DEPART, 
type: NT EGER 

IDTREL - an indicator of the relationship 
among the dependent data sets to 
be displayed in the current chart. 

I D C RE , = l >absolute 

LDTRE, = 2 >additive (not; implemented 

for LE/.LIN and LK/.LOG) 

type: INTEGER 

[ DTAPP - for Line graphs, a line appearance 

indicator for the curve to be drawn. 

I DTAPP = l >line 

l DTAPP = 2 >marker 

[DTAPP “ 3 > li ne and marker 

type: L NT EGER 

Eor bir graphs, an indicator of 
whether all bars in the chart 
should be filled or unfilled. 

[DTAPP « 0 >un \ i 1 ! ed 

[DTAPP = 1 M i 1 led 

type: INTEGER 

KEN PRY - The key entry to he associated 

with the dependent data set. If no 
key is to be displayed, this 
parameter must be passed as a null 
strirg(i.e. " ' ) . 
type: CHARACTER 

RESTRIC P LONS : If NVALS is greater than or equal to the number of 

values in the first dependent data set defined for the 
chart, only the originaLly specified number of data 
values will be user, if NVALS is less than the 
originally specified number ol values, only NVALS 
values will he user. 
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ERRORS: 


LKZDAT: 

LKZDAT: 

LKZDAT : 

LKZDAT: 

LKZDAT: 

LKZDAT: 

LKZDAT: 

LKZDAT: 

LEZDAT: 


IDTRKL OUT OK RANGE; SHOULD EQUAL A l OR 2. 

DATA SET IGNORED. 

THE NUMBER DATA SETS EXCEEDS THE LIMIT. 

MAXIMUM FOR LEZLIN = maximum data sets 
DA'!' A SET IGNORED . 

THE NUMBER OK VALUES OK DATA SET narrct+l 
EXCEEDS THE MAXIMUM SET BY "LEZLIN". 

MAX T MUM KOR LEZLIN = maximum points 
CURRENT FOR LEZDAT = avals 
DATA SET IGNORED. 

THE NUMBER OF BAR DATA VALUES HAS EXCEEDED LIMIT 
ON DATA SET it barct+l 
DATA SET IGNORED. 

THE NUMBER OF VALUES OF DATA SET barct+l 
EXCEEDS THE MAXIMUM SET BY "LEZBAK". 

MAXIMUM FOR LEZBAK = atic 
CURRENT FOR LEZDAT = avals 
DATA SET IGNORED. 

LEZDAT CANNOT BE CALLED WITH A FIE CHART. 

CALL TO LKZDAT IGNORED. 

THE CHART TYPE IS UNDEFINED. 

CALL LF.ZBAR, LKZLBR, OR LEZLIN FIRST. 

PROGRAM TERMINATED. 

IDTAPP OUT OF RANGE FOR LINES SHOULD = 0, 1, 2, OR 3. 
CALL TO LEZDAT IGNORED. 

IDTAPP OUT OF RANGE FOR BARS SHOULD = 0 OR 1 . 

CALL TO LEZDAT IGNORED. 
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LEZDB - Change The LEZ Debug Lei el. 


LANGUAG 

PURPOSE 

USE : 

ERRORS : 
NOTES: 


E: FORTRAN 11 

: Change the LEZ debug Level. 


CALL LEZDB(IDBLVL) 

WHERE: IDBLVL - The debug level. 

0 - Debugging turned OFF. (default) 

1 - Debugging turned ON. 
type INTEGER 

LEZDB: INVALID ARGUMENT IN LEZDB. 

IDBLVL SHOULD BE AN r NT EGER 0 OR 1- 
rDBLVL NOT CHANGED t CURRENT VALUE = Idblvl 

.See LEZFIL for the file name and associated logical 
unit where the debugging information is written. 


A - 13 



LEZPIL - Change Tht* Output Destination Of Various Processes. 


LANGUAGE : I* OK TRAN 77 

PURPOSE: Change the output destination of various processes. 

This routine opens a file, denoted by the Logical unit 
LUN and file name of CELLE. 


USE : CALL LEZF L L( l CODE , LUN , CP [ hK ) 

WHERE: ICODE ~ Specifies the process to be changed. 

! - Error processing. 

2 - Debug processing. 

3 - internal processing ( LEZLIN/LKZLOG) . 

type: L NT EGER 

LUN - Output logical, unit. 

Must be an int eger greater than 0. 

Logical units are MACHINE DEPENDENT, 
type: LNTKGER •» 

CELLE ~ Output file descriptor. 

CP ILK declared Internally as size of 7. 
Valid file names are MACHINE DEPENDENT, 
type: CHARACTER 

ERRORS: 

LEZPIL: INVALID ARGUMENT iN LEZPIL. 

[CODE MUST BE AN INTEGER 1,2, OR 3. 

NO CHANGE HAS BEEN MADE . 

LEZPIL: INVALID ARGUMENT IN LEZPIL. 

LUN SHOULD BE AN INTEGER GREATER THAN 0. 

NO CHANGE HAS BEEN MADE. 

LEZPIL: INVALID ARGUMENT IN LEZPIL. 

CP ILK fS INVALID. 

NO CHANGE HAS BEEN MADE. 

LEZPIL: LUN- Lun WAS ASSIGNED TO "fn". 

REASSIGNED TO “jfile". 

LEZPIL: ERROR DURING OPEN. 

[CODE , LUN , CP ILE= icode, Lun, ”cf lie” . 

PILE NOT PROCESSED. 

LEZPIL: ERROR DURING INQUIRE. 

[CODE , LUN, CFILK= icode, lun, "cf Lie*’ . 

PILE NOT PROCESSED. 

NOTES: The files are opened with: 

ORIGINAL PAGE 13 
OF POOR QUALITY 
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"OPENC UNIT* .UN , F [ LE=C F L LE , STATUS-UNKNOWN " ) . 
All other file attributes use MACHINE defaults. 

Both LUN and CP ILK mist bo valid before files are 
processed. 
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lk/gkt 


LANGUAGE: 

PURPOSE: 

USE: 


AX* 


Det ai Led 


i; t .L Values 01 LKZOPT And Other LEZ Related Attributes. 


FORTRAN 77 


Get Values Of LKZOPT And Other LKZ Related Attributes. 

CALL LEZGKT(OPTK)N, L VALS , NVALS , MVALS ) 

WHERE : OPTION - A variable to designate which parameter 
is to be changed in the options list. 

BKT.LLD > Whether to fi.Ll pies, bars, or 

"between" Lines. 

CLEAR > If LEZSHW 1$ to clear the screen 

after display 

COLOR > Interior color (pies, bars, lines) 

DASH > Dashed lines from major tick marks 

perpendicular to the dependent axis 

HAXLEN > Change length of horizontal axis 

HTICPOS > Change tick mark position in 

reLation to the horizontal axis. 

li ULAttR > Rot ate text on horizontal axis 

T NT PAT > interior pattern (pies, bars, lines) 

KEY JUST > Select the justification point for 

location of key 

LINPAT > Line pattern for line plots 

PAUSE > If LEZSHW is to pause after display 

RADIUS > Change radius of pie 

RTAXIS > Draw second vertical axis 

SYMNUM > Symbol number (for line plots) 

SYMSIZ > Symbol size (for line plots) 

VAXLKN > Change length of vertical axis 

VERSION > The current version of CGL routines 

V LABOR > Set justification of vertical 

axis la be 1 

VTLABR > Rotate text on the vertical axis 

VTICPOS > Change tick mark position in 

relation to the vertical axis. 

X0RIC1N > Change x coordinate of origin 

YORK; IN > Change y coordinate of origin 

type: CHARACTER 


LVALS - The returned value(s) for the option 
controlled by OPTION: 

NVAL.S - The maximum number of values returned. 
MVALS - The maximum number of values returned. 


description of each specific option 


OF PC AM r vCAlJ j / 
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NOTii: all the options in LKZOPT ere accessible here. Please refer 
to LEZOPT for a complete description of these options and 
their corresponding base t /pe (i.e. INTERGER, REAL, arrayed, 
unarrayed, etc. ) . 

The following OPTIONS are hose in addition to the ones 
given in LKZOPT. 

OPTION DESCRIPTION 

VERSION The version number >1 the current COL routines, 

type: INTEGER 


RESTRICTION : 
ERRORS : 
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LKZ INI) - To Kedei in* 1 Tin* 1 nde pen do nl Array For A Curve 


LANGUAGE: 

PURPOSE: 

USE : 

RESTRICTIONS: 
ERRORS : 

LKZ INI): 
LRZINi): 


FORTRAN 77 

To redefine the L independent array for a curve. 


CALL LKZ LND( T NDAKY , NVALS ) 

WHERE: [ NDAKY - An additional independent data set. 

type : REAL 

NVALS - The number of values in the array, 
type: REAL 

LKZ IN!) must be called before LKZ DAT, 

LK/L1N must be called prior to a call to LKZ INI), 
and the dimensions (MIN: MAX) defined in LEZLIN must 
be able to include any additional data defined 
in LKZ I Nl) and LKZDAT. NVALS in LKZ INI) must equal 
NVALS in LKZDAT. 


NUMBER OF DATA SETS LIMITED TO maximum data sets 
DATA SET IGNORED. 

NEGATIVE DATA OR ZERO ON LOG AXIS 
PROGRAM TERMINATED. 
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LEZINI - Initialize The Underlying 1)1-3000 and LGL Subroutines 


LANGUAGE 

PURPOSE: 


USE : 


RESTRIG P f ON : 
ERRORS : 

LK/.lNl 


FORTRAN 11 

L'o initialize the CGI. routines and attributes, and 
the underlying graphics package (and attributes). 

This routine can be ailed more than once. This 
routine will reset the majority of l.KZ attributes, 
and plot characteristics back to their initial 
defaults. Some l.KZ variables are considered 
"global" (i.e. not a fee ted by calls to I.KZIN1): 

- page height and vidht; 

- debug and error Levels /files 

CAM. l.KZ IN 1 ( I DKV ) 

WHKKK : I DKV - A D 1-3000 logical device 

0 metafile 

1 screen 

2 loth 
type : 1 N T EGER 

Default l’age Size = 7.0 x 7.0 (Page Coordinates). 

: INVAI.il) 1.001 OAI. DKV1CK NIIMKKK (I DKV) Oi idev 

PKOOKAM I’KRM L NATKD 
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LKXKKY - To Initiate The (’real Ion Of A Key For The Chart 


LANGUAGE: 

PURPOSE: 

USE: 


RESTRICTIONS: 
ER RORS : 

LEZKKY 

NOTES : 


FORTRAN 77 

To initiate the creation of a key 
for the current chart. 

CALL LKZKKY (TITLE , XPOS , YPOS V KENTRY) 

WMKRh: M ILK - Title of the chart key. 

type : CHAR AC TER 

XPOS , 

YROS - Location on the page at which to 

position the . justification point of 
the key. 
type: REAL 

KENTRY - The key entry to be associated with 
the data set . 
tvpe: CHARACTER 

Only one key entry per chart. XPOS and YPOS are 
limited to the dimensions ot your page (see LEXINI). 


: ( XPOS , YPOS )=(xpos,ypos) NOT ON PACK 
CALL TO LKZKKY IGNORED. 

The key can he put anywhere on the page. The 
default justification of the key box is the 
upper right corner. I he size of the key may 
be reduced to fit into an area denoted by XPOS, YPOS, 
and the page boundary. 
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LEZLBR - Establish the Chart as a Bar Graph with Text Labels 


LANGUAGE : FORTRAN 77 

PURPOSE: To establish the chart as a bar graph with evenly 

spaced bars, and t< xt labels on the Independent axis. 

USE: CALI, LEZLBR (VALUES , NVALS ,T 1TLE , LABELS , T AXLBL , 

IMXLBL , VALMIN, VALMAX, 1NDHV, IBRAPP) 

WHERE: VALUES - Tie bar graph dependent variabLe data 

st t . 

l’v po : REAL 

NVALS - The number of values in VALUES. 

Tv pe: INTEGER 

TITLE - A 1)1-3000 text string to be used as 
tie title line in the graph. 

T\ pe: CHARACTER 

LABELS - A 1)1-3000 text string with NVALS 

lcibels, each label ending with a '$' 
delimiter, containing all text labels 
f ( r the axis 

tick mark labels designated by 1NUHV. 
Er ample: ( ' $-2$0$2$ ' ) The beginning 
' i is optional but the ending 'S' is 
rt qu i red . 

Tv pe: CHARACTER 

1 AXLBL, 

DAXLBL - 1)1- 3000 text strings to be used as 
tie independent and dependent axis 
L be 1 s res pe ('Ll ve 1 y . 

Type: CHARACTER 

VALMIN, 

VALMAX - The minimum and maximum values for 
the dependent variable axis. 

Type: REAL 

INDHV - Ai indicator of whether the 

independent variable should he placed 
or the horizontal or vertical axis. 

IM3HV = 1 horizontal 

1M3VH = 2 > vertical 

type: INTEGER 

IBRAPP - An indicator of whether all bars in 
the char! should he filled or 
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unfilled . 

1BRAPP = 0 ; Unfilled 

IBRAPP = 1 >f illed 

type: INTEGER 

RESTRICTIONS: None 

ERRORS : 

LEZLBR: NVALS EXCEEDS LIMIT OF maximum tick marks 
PROGRAM TERMINATED. 

LEZLBR: INDHV OUT OF RANGE— MUST BE 1 OR 2 . 

PROGRAM TERMINATED. 

LEZLBR: IBRAPP OUT OF RANGE; SHOULD = 0 OR 1 . 

PROGRAM TERMINATED. 

NOTES: The title of the chart is placed according to 

publication standards at the bottom of the page. 

By default, tick marks are not drawn on the 
independent axis, and are drawn to the left on the 
dependent axis. To override this default tick mark 
positioning, call LEZOPT with options HTICPOS and 
VT1CP0S after this routine. 
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LK/.UN - Kslabl i sli TIm^ Chart As A Linear Crapl 


LANCUACK: 

PURPOSE: 

USK: 


KORTRAN 11 

To establish the chart as a linear graph. 


CALL l.KXLl N( [ NDARY , lJ Kd’ARY , NVM.S ,T 1 PLK , t AX LRL , n AX Mil. , 

1 NDMI N , 1 MIMAX ,l)KPMi N .DC PM AX, 1 NDHV , I, f N APP) 


Will*' KK : I NDARY - The line chart i ndepondout variable 

data set. 
type: RKAL 


l) KPARY ~ The line chart dependent variable 
date s e t . 
typ' : RKAL 

NVALS “ The number of values in INDARY 
and OK PAR Y. 
type: [NTKCKR 

TITLK - A 1) - 3000 text string to be used 
as f he title line in the chart, 
type: Cil ARACTK R 


! AXLKL, 

DAXhRh - I) I “ H)00 text siring to bo used is 
the i ndependen t and dependent axis 
1 a he 1 s , respec l i v>‘ l V . 
typ* * : CHAR ACT KR 


LNDMIN , 

[NOMAX - The minimum and maximum values tor 
the i ndep e n d o n t. v a r i a b l e axis . 
typ ' : RKAL 

DKPMLN, 

DKPMAX - The minimum and maximum values for 
the dependent variable axis, 
typ *: RKAL 


INDHV - An indicator of wliether the 

independent variable should ha 
!'» 1 a uni on f he ho r i son! a 1 or the 
ve r i e i | i X i s . 

I MU IV I - diet i o>a t a 1 

INI) IV = 2 '/vert ical 

typ*: IN PKCKR 

LI NAP P - A line appearance indicator for the 
curve to be drawn. 

ORIGINAL PAGE IS 
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LINAPP = 1 >11 ne 

LINAPP = 2 >mark.er 

LINAPP = 3 >line and marker 

type : INTEGER 

DISCUSSION: This section describes some often desirable features: 


Numeric Axis In Decreasing Order 

The user may desire a plot with an axis which has decreasing tick mark 
values. An example of this often occurs when plotting wind tunnel 
’’pressure distribution". The user can inform the LEZLIN routine to 
plot with axes decreasing by passing the minimum greater than the 
maximum for the appropriate axis (dependent or independent). 

For example, to obtain a decreasing dependent axis with tick mark 
values from 10 to -10, pass DEPMIN as 10 and DEPMAX as -10. 

Similarly, to obtain a decreasing independent axis with tick mir* 
values from 10 to -10, pass TNDMTN as 10 and INDMAX as -10. 


Automatic Scaling of An Axis 

The LEZLIN routine can be informed to "automatically scale" an axis. 
This means the routine will find the minimum and maximum value of a 
data set, and adjust the number of major tick marks and their labels 
to provide a "pleasing" plot. The number of "adjusted" tick marks 
will range from 2 to 11, while the tick mark labels will have suitable 
increments (conforming to publication standards), and be represented 
by sufficient number of digits. 

For example, to automatically scale the dependent axis in increasing 
order, DEPMIN and DEPMAX should be set to the same positive value 
(a real number 0 or greater). To automatically scale the dependent 
axis in decreasing order, DEPMIN and DEPMAX should be set to the 
same negative value (a real number less than 0). 

Note, the axis scales will only consider the dependent and independent 
arrays provided with the LEZLIN routines. Thus, subsequent data 
arrays input with LEZDAT may lie outside the "adjusted* set of ranges. 


RESTRICTIONS: By default, both axes will be drawn with 11 major 

tick marks positioned beginning at INDMIN(DEPM1 N ) and 
ending at INDMAX (DEPMAX) . There will be one minor 
tick mark in each major tick mark division (Total of 
10 ). 

The dependent and independent arrays are limited 
to 2 to 500 points. 

ERRORS: 

LEZLIN: NVALS EXCEEDS LIMIT OF maxpts 
PROGRAM TERMINATED. 
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NOTE: 


LEZLIN: NVALS MUST BE 1 OR GREATER (INTEGER). 

PROGRAM TERMINATED. 

LEZLIN: INDHV OUT OF RANGE SHOULD EQUAL 1 OR 2 . 

PROGRAM TERMINATED 

LEZLIN: LINAPP OUT OF RANG!'.; SHOULD = 1, 2, OR 3. 

PROGRAM TERMINATED 

LEZLIN: ERROR DURING OPEN. 

UNIT= leziou; FILE =" leziof • 

OPEN STATEMENT NOT PROCESSED. 

The title of the chart is placed according to 
publication standards at the bottom of the page. 

There is a limit cf 500 points in the data arrays. 
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LEZLOG - Establish The Chart As A Log Graph 


LANGUAGE: 

PURPOSE: 


USE: 


data set. 
type: REAL 

DEPARY - The log graph dependent variable 
data set. 
type: REAL 

NVALS - The number of values in TNDARY and 
DEPARY. 
type: INTEGER 

TITLE - A Dr-3000 text string to be used as 
the title line in the chart, 
type: CHARACTER 


FORTRAN 77 

To establish the chart as a LOG(baselO) graph. 

CALL LEZLOG( INDARY, DEPARY, NVALS , TITLE , IAXLBL JIAXLBL , 

INDMIN , INDMAX,DEPMIN,DEPMAX, IAXTYP , IHLOGl , 
IV LOG I , 1NDHV , LINAPP ) 

WHERE: INDARY - The log graph independent variable 


IAXLBL, 

DAXLBL - DI-3000 text string to be used. The 
Independent and dependent axis 
labels, respectively, 
type : CHARACTER 

INDMIN, 

INDMAX - The minimum and maximum values for 
the independent variable axis, 
type: REAL 

DEPM1 N, 

DEPMAX - The minimum and maximum values for 
the Independent variable axis, 
type : REAL 

IAXTYP - Axis type (linear or logarithmic) 

1 - Logarithmic independent axis 

Linear dependent axis 

2 - Linear independent axis 

Logarithmic dependent axis 

3 — Logarithmic independent axis 

Linear dependent axis 

IHLOGl , 
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IV LOG I. - Tic< mark label type, which are. 

0 - No small tick marks 

1 - 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9,1 

2 - 1 , 2 , 4 , 6 , 8,1 

3 - 1 , 3 , 5 , 7 , 9,1 

4 - 1 , 5,1 

5 - 1,1 

6 ■" 2 , 3 , 4 , 5 , 6 , 7 , 8, 9 

7 - 2 , 4 , 6, 8 

8 • 3 , 5 , 7, 9 

9 5 

if (I LOGI<0)only small log tick 
marks are drawn. 

[f (I LOG I >0) La be Is and tick marks 
ar ' drawn, 
type : INTKGKR 


INDHV - An indicator of whether the 

independent variable should be 
placed on the horizontal or the 
vcritcal axis. 

INDHV = 1 >H0KIZ0NTAL 

INDHV = 2 ^VERTICAL- 

type: INTEGER 

LINAPP - A line appearance indicator for the 
curve to be drawn. 

L NAPP = 1 >LINE 

Li NAPP = 2 >MARKER 

LLNAPP = 3 >LINE AND MARKER. 

t /pe : INTEGER 


RESTRICTIONS: 


the desired axes endpoints are to be different from 
e maximum and minimum data, put the desired endpo.nls 
to LNDM1N, IN DM AX , UKPMIN, and DEPMAX. 

/LOG will always generate whole integer exponents 
:sed on INDM1N, INDMAX, DEPM1N , and DEPMAX where 


of P . 


ERRORS: 

LEZLOG: NVALS EXCEEDS LIM T Of maxpts 
PROGRAM TERMINATE >. 

LEZLOG: NVALS MUST BE 1 OR GREATER (INTEGER). 
PROGRAM TERMINATE). 


LEZLOG : 


tKLOGI OUT OF RANGE 

SHOULD BE AN INTEGER BETWEEN -9 AND 9 
PROGRAM TERMINATED. 


LEZLOG: 


IVLOGI OUT OF RANGE 

SHOULD BE AN INTEGER BETWEEN 

PROGRAM TERMINATED. 


-9 AND 9 
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NOTES: 


LEZLOG: IAXTYP OUT OF RANGE 

SHOULD EQUAL AN INTEGER 1,2, OR 3 
PROGRAM TERMINATED. 

LEZLOG: INDHV OUT OF RANGE; SHOULD EQUAL 1 OR 2. 

PROGRAM TERMINATED. 

LEZLOG: LINAPP OUT OF RANGE; SHOULD = 1, 2, OR 3. 

PROGRAM TERMINATED. 

LEZLOG: ERROR DURING OPEN. 

UNIT= leziou ; FILE= "leziof " . 

OPEN STATEMENT NOT PROCESSED. 

FATAL INTERNAL ERROR. PLEASE CONTACT SUPPORT GROUP 
PROGRAM TERMINATED. 


The title of the chart is placed according to 
publication standards at the bottom of the page. 
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LEZNOT - Define And Position A Note On The Current Chart 


LANGUAGE 

PURPOSE: 

USE: 


RESTRIC 
ERRORS : 


NOTE: 


FORTRAN 77 

To define and position a note on the current chart. 

The text supplied by LEZNOT is not retained 
internally, and thus must be reentered if the chart 
is altered. 

CALL LEZNOT (STRING , XPOS , YPOS , IHJST , IVJST , LANG) 

A D I- 3000 text string to be output 
or the current graph, 
type: CHARACTER 

The location on the page to be used 
a-, the justification point for the 

note . 

t /pe : REA.L 

HU ST , . , . 

IVJST - Tie horizontal and vertical justiti 
c it ion, respectively, to be used for 
a string about the point designated 
by XPOS, YPOS. 
lii.IST = 1 — > left 
IHJST = 2 — > center 
IHJST = 3 — > right 

IVJST = 1 — > bottom 
IVJST = 2 — > center 
IVJST = 3 --> top 
type: INTEGER 

IANG — The angle of rotation about which to 
display the text. 

1 ype: INTEGER 

ITIONS: None. 


LEZNOT: (XPOS , YPOS ) = (xpo ; ,ypos) NOT ON PAGE 

CALL TO LEZNOT IGNORED. 

LEZNOT: HJST OR VJST OUT OF RANGE 

SHOULD BE AN INTIGER BETWEEN 1 & 3 
CALL TO LEZNOT IGNORED. 

The string is displayed when LEZN01 is called, 
not by LEZSHW. 

LEZSIZ may be called prior to this routine to change 
the text height, width, and gap. 


WHERE: STRING - 


XPOS, 

YPOS 
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LfcZOPT Set Options to Change the Appearance of the Current thdit 


LANGUAGE: FORTRAN 77 

PURPOSE: Set options to change the appearance of the 

current chart. 

USE: CALL LEZOPT (OPTION , I VALS ) 

WHERE : OPTION - A variable to designate which parameter 
is to be changed in the options list. 

Bb ILLD > Whether to fill pies, bars, or 
"between” lines. 

CLEAR ) If LEZSHW is to clear the screen 

after display 

COLOR > Interior color (pies, bars, Linos) 

DASH > Dashed lines from major tick marks 

perpendicular to the dependent axis 

HAXCOL > Horizontal axis color 

HAXLEN > Change length of horizontal axis 

HAXTCOL > Horizontal axis text color 

HTICPOS > Change tick mark position in 

relation to the horizontal axis 

HTLABR > Rotate text on horizontal axis 

INTPAT > Interior pattern (pies, bars, lines) 

KhY.IUST > Select the justification point foi 
location of key 

LINPAT > Line pattern for line plots 

NOTECGL > Color of the string output by LEZNOT 

PAUSE > If LEZSHW is to pause after display 

PLOTYP > Plot type (i.e. symbol at every nth 

data point) 

RADIUS > Change radius of pie 

RTAXIS > Draw second vertical axis 

SYMNUM > Symbol number (for line plots) 

SYMSIZ > Symbol size (for line plots) 

VAXCOL > Vertical axis color 

VAXLEN > Change length of vertical axis 

VAXTCOL > Vertical axis text color 

VLABDR > Set justification of vertical 

axis label 

VTLABR > Rotate text on the vertical axis 

VTICPOS > Change tick mark position in 

relation to the vertical axis. 

XORIGIN > Change x coordinate of origin 

Y0K1G1N > Change y coordinate of origin 

type: CHARACTER 

IVALS - The new value(s) for the option 
controlled by OPTION: 
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Detailed description of each speci ic option 


OPTION 

BF1LLI) 


CLEAR 

COLOR 


DASH 

HAXCOL 

HAXLEN 

HAXTCOL 

HTICPOS 


DESCRIPTION 

IVALS - Array of numbers (one for ciic h 
dat a sol ) t h it will dulormi no 
if the pie segments, bars, or 
’between’' li les will be filled. 

0 - do not fill 

1 - fill 
Default: 

LEZL1N and LEZLOG; array of 0's 
LEZB \R , LEZLBR, and LEZPIE; array of Ts 
type: ARRAY )F INTEGERS 

VALUE - Clear flag 

.FALSE.- L-EZSHW will not clear the screen 
. TRUE . = LFZSHW will clear the screen (default) 
type: LOGICAL 

IVALS - Array of nun bers (one for each 
k data set) that will determine 

the interiot colors for the pie 
segments, b^rs, or 'between lines, 
or the line colors to be used. 

Must have a* least as many values 
as there art 1 data sets. 

Default : 

D I- 1000 colors 1-8 (cycled) 
type: ARRAY OF INTEGERS 

VALUE - Dashed line flag 

.FALSE. = no dashed lines (default) 

.TRUE. = dashed lines 
type: LOGIC \L 

IVALS - Horizontal ixis color, 
range: 0 to 32767 
Default: 0 (device normal) 
type: INTEGER* 

IVALS - Horizontal axis length in page corrdinates. 
Default: ZJ 3. of page width 
type: REAL 

IVALS - Horizontal axis text color, 
range: 0 tc 32767 
Default: 0 (device normal) 
type: INTKCKR 

IVALS - Tick mark fosition on horizontal axis 

0 - Tick m; rks are suppressed. 

1 - Tick tiK rks are positioned 

to above the axis 
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tiTLABR 


INTPAT 


KEY JUST 


LIN PAT 


NOT ECO L 


PAUSE 


(i.e. inward) . 

2 - Tick marks are positioned 

to below the axis 
(i.e. outward). 

3 - Tick marks are positioned 

both above and below the 
axis (i.e. in and out). 

Default : 

LEZBAR and LEZLBR; 0 for independent axis 

1 for dependent axi > 

LEZLIN and LEZLOG; l for both axes 
type: INTEGER 

IVALS - Rotation angle-horizontal axis 
rotates the tick mark labels 
Default: 0 degrees from the horizontal 
type: INTEGER 

IVALS - Array of numbers (one for each 
data set) that will determine 
the interior patterns for the pie 
segments, bars, or "between" lines 
to be used. 

Must have at least as many values 
as there are data sets. 

Default : 

DI-3000 interior fill patterns 13-28 
type: ARRAY OF INTEGERS 

IVALS ~ Select the justification point of the 
key . 

1 - lower left corner 

2 - lower right corner 

3 - upper left corner 

4 - upper right corner (default) 
type: INTEGER 

IVALS - Array of numbers (one for each 
data set) that will determine 
the line patterns used in line plots. 

Must have at least as many values 
as there are data sets. 

Def au 1 t : 

NASA publication line patterns 
1-8 (cycled) 
type: ARRAY OF INTEGERS 

IVALUE - Color to output LEZNOT string, 
range: 0 to 32676 
default: 0 (device normal) 
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type: INTEGER 
VALUE - Pause flag 
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PLOTYP 


RADIUS 


RTAXIS 


SYMNUM 


SYMSIZ 


VAXCOL 


VAXLEN 


VAXTCOL 


VLABDR 


. FALSE . =LEZSt W will not pause after display 
• TRUE . =I,KZSHV will pause after display(def ault) 
type: LOGICAL. 

VALUE - Plot type. D.-termines which data point to 
place a symbol (i.e. a value of 2, means to 
plot a symbol at every other data point), 
range: 0 or greater 
default: 1 (e^ery data point) 
type: INTEGER 

IVALS - Radius of pie in page coordinates. 

Default: 2 - /9 - of smaller page dimension 

type: REAL 


VALUE 


VALUE 


. FALSE. =sec< nd vertical axis not drawn(default) 
.TRUE . =secoi d verticcal axis drawn 
type: LOGICAL 

Symbol numbe per data set for line plots. 

Range: must )e zero or greater. 

Must have at least as many values 
as there are data sets. 

Default- o / i j\ 

NASA publication symbols 1-8 (cycled) 

type: ARRAY )F INTEGER 


VALUE - Symbol size in terms of page coordinate 
Range: must be zero or greater. 

Must have at least as many values 
as there art data sets. 

Default: 

Publication quality size 
type: ARRAY OF REAL 


IVALS - Vertical ax s color, 
range: 0 to 3276 1 
Default: 0 .device normal) 
type: INTEGER 

IVALS - Vertical axis length in page corrdi nates 
Default: 2./3. of page height 
type: REAL 


1VAL6 - Vertical a> is text color, 
range: 0 t<. 32767 
Default: 0 (device normal) 
type : 1NTE( LR 


VALUE 


Vertical a is label justification 

.FALSE* Vertical direction (defau t) 

.TRUE. Horizontal direction 

type: LOGI *AL 



VT I CFOS 


VTLA.BR 


XORIGIN 


YORLGIN 


RESTRICT [ON 


IVALS Tick mark position on the vertical axis 

0 - lick marks are suppressed. 

1 Tick marks are positioned 
to the right of the axis 
(i.e. inward). 

2 — Tick marks are positioned 

to the left of the axis 
(i.e. outward). 

3 - Tick marks are positioned 

both to the right and left of the 
axis (i.e. in and out). 

Default: 

LEZBAR, LEZLBR; 0 independent axis 
2 dependent axis 
LKZLIN, LEZLOG; 1 for both axes 
type: INTEGER 

IVALS - Rotation angle-vertical axis 
rotates the tick mark labels 

Default: 0 degrees from the horizontal 
type: INTEGER 

IVALS - X page coordinate to justify data area. 

lor line charts and bar charts, the intersection 
of axes (i.e. lower left corner of data area), 
for pie charts, the center of the pie. 

Default: (2./9.) of page width from the 
left side of the page 
type: REAL 

IVALS - Y page coordinate to justify data area. 

For line charts and bar charts, the intersect! 
of axes (i.e. lower left corner of data are,)*' 
For pie charts, the center of the pie. 

Default: (2./9.) of page height from the 
bottom of the page 
type: REAL 


or option COLOR, you must pass IVALS as an array 
more than one curve. The size of IVALS must be 

greater than or equal to the number of curves 
in your chart. 

By default, eight colors are displayed. The color 
sequence is as follows (recycling if necessary): 


1 o r 


1- Red 2. Green 
5. Magenta 6. Cyan 


3. Yellow 4. Blue 

7. White 8. Black 


The default text quality is graphic art quality. 
Only whole rotation angles are allowed. 
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RRORS: 


- For options RADIUS, HAXLEN, and VAXLEN IVAL must be 
greater than zero. 


Options HAXLEN , VAXLEN , XORICIN, and YORIGIN are inte 
related, care must be taken as to the order in which the 
options are called. If the origin plus the 
length of the axis exceeds the page size, at any time, 
the option being called will be ignored, an *- ® 

vnl.ie of that vir'- k '“ ,jni nor be chanRe ■ 


LKZOPT: 


INVALID VALUE FOR OPTION "RADIUS". 

THE CURRENT RADIUS 01 radius WILL BE USED 


LEZOPT: INVALID VALUE FOR OP') ION "HAXLEN". UTnTH 

THE LENGTH OF THE HORIZONTAL AXIS EXCEEDS PAGE WIDTH. 

THE ATTEMPTED HORIZONTAL LENGTH = rvalue 
THE CURRENT X-ORIGIN IS ox 


THE CURRENT PAGE WID' H IS pgwid 
fUL’ rinjufTMT AXTR LENGTH OF xdist 


mi I Dl? 




LEZOPT: 


INVALID VALUE 
LENGTH OF THE 


FOR OP L’lON "HAXLEN". 
HORIZONTAL AXIS IS LESS THAN 


OR EQUAL TO ZERO. 

THE CURRENT AXIS LENGTH OF xdist W1LI 


BE USED. 


[ F70PT • INVALID VALUE FOR OF T ION VAXLEN . 

CHS I.KNCTH OF TUB VFRTICA1, AXIS BXBBKDS 

the page height. 

THE ATTEMPTED VERTU AL LENGTH = rvalue 
THE CURRENT Y-ORIGIN IS oy 


THE CURRENT PAGE HEIGTH IS pghgt 


tuJ ruoneNT AXIS LENGTH OF yd 


f UTM. RR USED. 


LEZOPT: INVALID VALUE FOR OPTION "VAXLEN''.^ 

LENGTH OF THE VERTICAL AXIS IS LESS THAN 
OR EQUAL TO ZERO. 

THE CURRENT AXIS LENGTH OF ydist WILL BE USED. 


LEZOPT: INVALID VALUE FOR OPTION "HAXCOL - 
INVALID VALUE = '.ivalue 
VALID RANGE: INTEGER 0-32767. 

CALL TO LEZOPT IGNORED . 


LEZOPT: INVALID VALUE FOR OPTION "HAXTCOL . 
INVALID VALUE = '.lvalue 
VALID RANGE: INTEGER 0-32767. 

CALL TO LEZOPT IGNORED. 


LEZOPT: INVALID VALUE FOR OPTION "VAXCOL • 

INVALID VALUE = ', value 
VALID RANGE: INTEGER 0-32767. 

CALL TO LEZOPT IGNORED. 
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LEZOPT : INVALID VALUE FOR OPTION "VAXTCO". 

INVALID V A Hi K = ivalue 
VALID RANGE : INTEGER 0-32767. 

CAI.L TO LEZOPT IGNORED. 

LEZOPI: INVALID VALUE FOR OPTION "NOTECOL". 

INVALID VALUE = '.ivalue 
VALID RANGE: INTEGER 0-32767. 

CALL TO LEZOPT IGNORED. 

LEZOPT: INVALID VALUE FOR OPTION "PLOTYP". 

VALID RANGE: INTEGER 0 OR GREATER. 

INVALID VALUE - lvalue 
DATA SET = Ri 

THE CURRENT VALUE OF plotyp(ki) IS USED. 

LEZOPT: INVALID VALUE FOR OPTION "XORIGIN". 

THE LENGTH OF THE HORIZONTAL AXIS EXCEEDS 
THE PAGE WIDTH. 

THE ATTEMPTED XORIGIN = rvalue 

THE CURRENT X-AXIS LENGTH IS xdlst 

THE CURRENT PAGE WIDTH IS pgwid 

THE CURRENT AXIS ORIGIN OF ox WILL BE USED, 

LEZOPT: INVALID VALUE FOR OPTION "YORIGIN". 

THE LENGTH OF THE VERTICAL AXIS EXCEEDS 
THE PAGE HEIGHT. 

THE ATTEMPTED YORIGIN = rvalue 

THE CURRENT Y-AXIS LENGTH IS ydist 

THE CURRENT PAGE HEIGHT IS pghgt 

THE CURRENT AXIS ORIGIN OF oy WILL BE USED. 

LEZOPT: INVALID VALUE FOR OPTION ‘‘HTICPOS’’. 

VALID RANGE: INTEGER 1-3 
CALL TO LEZOPT IGNORED. 

LEZOPT: INVALID VALUE FOR OPTION "VTICPOS". 

VALID RANGE: INTEGER 1-3 

CALL TO LEZOPT IGNORED. 

LEZOPT: INVALID VALUE FOR OPTION "KEYJUST" . 

VALID RANGE: 1-4 INTEGER. 

INVALID VALUE = i value 
CALL TO LEZOPT IGNORED. 

LEZOPT: INVALID VALUE FOR OPTION "BFILLD" . 

VALID RANGE: INTEGER 0 OR 1 . 

INVALID VALUE — ivalue 
DATA SET = ki 

THE CURRENT VALUE OF bfilld(ki) IS USED. 

LEZOPT: INVALID VALUE FOR OPTION "COLOR". 

VALID RANGE: INTEGER 0 TO 32767. 

INVALID VALUE = ivalue 
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DATA SET = ki 

THK CURRENT VALUE OF intcol(ki) IS USED. 

LEZOPT: INVALID VALUE FOR OPTION "I NT PAT" . 

VALID RANGE: INTEGER 0 TO 32767. 

INVALID VALUE = lva1.no 
DATA SET = kL 

THE CURRENT VALUE OF intpat(ki) IS USED. 

LEZOPT: INVALID VALUE FOR OP i ION SYHNUM • 

VALID RANGE: INTEGER 0 TO 922. 

INVALID VALUE = ival ie 
DATA SET = ki 

THE CURRENT VALUE OF symnum(ki) IS USED. 

LEZOPT : INVALID VALUE FOR OPTION "LINPAT". 

VALID RANGE: INTEGER 1 TO 8. 

INVALID VALUE = lvalue 

DATA SET = ki . 

THE CURRENT VALUE 01 linpat(ki) IS USED. 

LEZOPT: INVALID VALUE FOR OPTION "SYMSIZ". 

VALID RANGE: REAL 0 OR GREATER. 

INVALID VALUE = rvalue 
DATA SET = kl 

THE CURRENT VALUE OF symslz(ki) IS USED. 

LEZOPT: INVALID OPTION "opt Lon". 

CALL TO LEZOPT IGNORED. 
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LEZPGE Change The Default Page Size 


LANGUAGE FORTRAN 77 


PURPOSE: 


To change the default page size. 

Note, this routine can be used to control the page 
size, which in turn defines the aspect ratio of 
viewspace . 


CALL LEZPGE (XVAL , YVAL) 

WHERE: XVAL - The width of the pa^e in the X-di recti 


YVAL - The heigth of the page in the Y-direct 


RESTRICTIONS: 

This routine can only be called once, and must be 

the first routine that is called (i.e. before LEZ1N1). 
ERRORS: ' 

LEZPGE: LEZPGE MUST BE CALLED BEFORE LEZINI AND 
CAN ONLY BE CALLED ONCE. THIS CALL TO 
LEZPGE IS IGNORED. 


LEZPGE: XVAL=xval AND YVAL=yval 

DO NOT MAKE AN ACCEPTABLE PAGE. 
CALL TO LEZPGE IGNORED. 


of 
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LEZPIE - Establish The Chart A; A Pie Graph 


LANGUAGE: FORTRAN 77 

PURPOSE: To establish the :hart as a pie graph. 


USE: CALL LEZPIE(SEGS , MUM, TITLE ,NEXPi , NEXP2 , LFORM1 , LFORM2 ) 

where: SEGS - The array of values to be used in 

generating the pie segments, 
type : REAL 

NUM - The number of values in the array 

SEGS. 

type: INTEGER 

TITLE - Main graph title. 

type: CHARACTER 

NEXP1 - The number of the first segment to 
be included in an exploded segment, 
type: INTEGER 

NEXP2 - The number of the last segment to 

be included in an exploded segment, 
type: INTEGER 

LF0RM1 - An indicator of whether to display 
a quantity label for each segment 
of the pie. 

LF0RM1 = 0 >Do not display 

label 

LF0RM1 = 1 >Display label 

type: INTEGER 

L FORM 2 - An indicator of whether to 

display a percentage label for each 
segment of the pie 

L FOR M2 = 0 >l)o not display 

label 

L FORM 2 = 1 >l)i splay label. 

type: INTEGER 

RESTRICTIONS: There can be no r ore than 10 segments in each pie 

chart . 

ERRORS: 

LEZPIE : INVALID VALUE FOl "NUM” = num 

ENTER AN INTEGER VALUE FROM 1 TO maxpie 
PROGRAM TERM I NAT LI) . 
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LEZPIE: INVALID VALUE FOR "NEXPI " = nexpl 

ENTER AN INTEGER FROM 0 TO NUMBER OF 
SEGMENTS. (CURRENTLY = numpie) 

PROGRAM TERMINATED. 

LEZPIE: INVALID VALUE FOR "NEXP2" = nexp2 

ENTER AN INTEGER FROM 0 TO NUMBER OF 
SEGMENTS. (CURRENTLY = numpie) 

PROGRAM TERMINATED.' 

LEZPIE: INVALID VALUE FOR NEXPI OR NEXP2 
BOTH MUST BE ZERO OR NON-ZERO 
NEXPI, NEXP2 = nexpl, nexp2 
PROGRAM TERMINATED. 

LEZPIE: INVALID VALUE FOR " LFORM1 " = lfortnl 
ENTER AN INTEGER VALUE OF 0 OR 1 
PROGRAM TERMINATED. 

LEZPIE: INVALID VALUE FOR “ LFORM2" = Iforra2 
ENTER AN INTEGER VALUE OF 0 OR 1 
PROGRAM TERMINATED. 

MOTES: The title of the chart Is placed according to 

publication standards at the bottom of the page. 

There are no restrictions on the size and placement 
of the pie charts so care must be taken to ensure 
that the plot is all contained wihtin the page 
The title will always show up on the plot somewhere 
unless a blank title is used. 


A - 40 


LEZPLB - Label A Pie Segment With Text, And/Or Make A Legend Entry 


LANGUAGE : 
PURPOSE: 

USE: 


RESTRICTIONS: 
ERRORS : 

LEZPLB: 

LEZPLB: 


FORTRAN 77 

To label a pie segment with text, and/or make a key 
ent ry . 


CALI, LEZPLB(NOPLB, LABEL, KEY) 


where: NOPLB - The pie segment with which the 

labels will be associated, 
type: INTEGER 

LABEL - Text string containing label to 
be placed beside the pie segment 
NOPLB. 

type: CHARACTER 


KEY - Text string containing a label to be 
placed in the key and associated 
with the pie segment designated 
by NOPLB. 
type: CHARACTER 


If LABEL is a null string ( " ') y no label will be 
placed beside the pie segment. If KEY is a null 
string, no key entry will he made for pie segment 
NOPLB. If no key has been created for a graph, 
KEY will be ignored. Create a chart key by 
calling LEZKEY. 


"LEZP IE" MUST BE CALLED PRIOR TO 'LEZPLB'. 
PROGRAM TERMINATE). 

INVALID VALUE FOR ’'NOPLB'* = noplb 
ENTER AN INTEGER FROM 1 TO NUMBER OF 
SEGMENTS (CURRENTLY = numpie) 

CALL TO LEZPLB IGNORED. 
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LEZPQP - Obtain Pie Segment Quantity And Percent Labels 


LANGUAGE: FORTRAN 77 

PURPOSE: To obtain pie segment quantity and percent label 


USE: CALL LEZPQP(N1 ,FORMl ,N2 , F0RM2) 


Where: NX 


FORMl 


N2 


F0RM2 


RESTRICTIONS : None* 


The total number of characters to L 
used when displaying the p i ^ -a gr c 
quantity label, 
type: INTEGER 

The FORTRAN format specification r 
be used for the quantity Vtouo 
type : CHARACTER 

The total number of characters to b 
used when plotting the pie segment, 
type: INTEGER 

The FORTRAN format specification 
used for the percentage value 
type: CHARACTER 


ERRORS: 

LEZPQP: " LEZP IE " MUST BE CALLED PRIOR TO "LEZPQP'. 
PROGRAM TERMINATED. 


LEZPQP: INVALID VALUE FOR "Nl" = nl 

ENTER AN INTEGER VALUE FROM 0 TO 40 
CALL TO LEZPQP IGNORED. 

LEZPQP: INVALID VALUE FOR "N2" = n2 

ENTER AN INTEGER VALUE FROM 0 TO 40 
CALL TO LEZPQP IGNORED. 
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LEZSHW - Draw Current Chart 


LANGUAGE : 
PURPOSE : 


USE: 

RESTRICTIONS: 


ERRORS: None. 


PORT RAN 77 

Draw current chart- 

By default, LEZSHW will pause then clear the screen. 
LEZOPT provides options which will disable the pause 
and/or clear, then subsequently allow the user to 
enable them. The pause and clear is performed 
through LEZSHW. 

CALL LEZSHW 

LEZSHW draws the chart as it is currently 
defined by all previous LEZ calls. 

Call LEZSHW more than once between LEZ 

ini tialization(LEZ NX) and terminat ion( LEZTRM) . 

Other LEZ routines may be called to further 
specify the chart between calls to LEZSHW. This 
would allow the viewing of the chart as each new 
annotation is spec fied. 
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LEZSIZ - Change The Current Character Heigth And Width. 


LANGUAGE: FORTRAN 77 

PURPOSE: Change the current character height and width. 

USE: CALL LEZSIZ(XSIZE ,YSIZE) 

WHERE: XS1ZE - Character width (in page coordinate;:. > . 

Range: greater than or equal to zero, 
type: REAL 

YSIZE - Character height (in page coordiu..; e--. 
Range: greater than or equal to zei 
type: REAL 

RESTRICTION: XSIZE and YSIZE must be greater than zero. 

ERRORS : 

LEZSIZ: INVALID ARGUMENT IN LEZSIZ. 

XSIZE SHOULD BE A REAL VALUE 0 OR MORE. 

XSIZE NOT CHANGED. 

LEZSIZ: INVALID ARGUMENT IN LEZSIZ. 

YSIZE SHOULD BE A REAL VALUE 0 OR MORE. 

YSIZE NOT CHANGED. 

NOTES: To return the character height to its default, 

enter the value of zero for YSIZE. 

To return the character width to its default, 
enter the value of zero for XSIZE. 
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LEZTRM - Terminate The Graphics Routines 


LANGUAGE : 
PURPOSE: 

USE: 

RESTRICTIONS: 

ERRORS: 

LEZTRM : 


FORTRAN 77 

To terminate the graphics routines, LEZTRM ensures 
that all graphic o itput is completed and 
terminates the underlying LEZ, CGL, and DI-3000 
support systems. 


CALL LEZTRM 

LEZTRM must be the last LEZ routine called by the 
application program. You may call LEZINI afterward 
to begin creation of a new chart. 


INTERNAL ERROR DURING FILE CLOSE. 
CONTACT PROGRAM ADMINISTRATOR. 
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APPENDIX B 


TEST CASES AND CHARTS OF THE LEZ ROUTINES 

This appendix contains two sets of sample programs which use the LEZ routines. The 
:■? ] . s et, consists of the programs used to generate the charts used in section 3 (i.e. lines, 
bars, pies, and composite charts). The programs are commented more fully to aid the 
user in understanding the use of the LEZ routines. These programs have the same 
names used in section 3 (i.e. DCLIN1 , DCBAR1 , DCMIX1 , etc.). 


DCBAR1 - Basic bar chart using LEZBAR B- 3 

DCBAR2 - Bar chart using LEZAXN B - 6 

DCBAR3 - Bar chart using LEZAXT B - 9 

DCBAR4 - Basic bar chart using LEZLBR B- 12 

DCBAR5 - Absolute bar chart with a key (LEZKEY and LEZDAT) B - 15 

DCBAR6 - Additive bar chart with a key (LEZKEY and LEZDAT) B - 18 

DCLIN1 - Basic line chart B- 21 

DCLIN2 - Line chart with an autoscaled axis B - 24 

DCLIN3 - Line chart with a decreasing axis B - 27 

DCLIN4 - Line chart with numeric axes (l.EZAXN) B - 30 

DCLIN5 - Line chart with character axis (_EZAXT) B - 33 

DCLIN6 - Multi-line chart with a key (LEZKEY and LEZDAT) B - 36 

DCLOG1 - Basic semi-logarithmic chart ilogarithmic dependent axis) B - 40 

DCMIX1 - Multiple linear charts B - 44 


B- 49 
B- 52 
B- 55 


B- 1 


DCPIE1 - Pie chart with quantity, percen age, and segment labels 
DCPIE2 - Exploded pie chart with quantity, percentage, and 
segment labels 

DCPIE3 - Pie chart with quantity and percentage labels and a key 
(LEZKEY) 



The second set consists of additional programs which reveal some of the LE«: rej 
suabilities, possibly not indicated earlier. 

CGBAR1 - Multiple bar charts with rotated tick mark labels 
CGBAR2 - Multiple absolute bar charts with a key 
CGBAR3 - Multiple additive bar charts with a key 

CGLIN1 - Multi-line chart with an autoscaled axis and a key 
G6LIN2 Multi-line chart with a key and reordered line patterns 
CGLIN3 - Multi-line chart with a key and dashed lines across the data 
space 

CGUN4 - Multi-line chart with pattern fill between lines and a key 
CGL1N5 - Multi-line chart with a decreasing axis and a key 

CGMIX1 - Multi-chart chart (pie, bar, and linear charts) 

CGMIX2 - Multi-chart chart (linear and logarithmic charts) 

CGMIX3 - Multi-chart chart (pie, bar, and linear charts on two pages) 

CGPIE1 - Pie chart with segment labels 

CGPIE2 - Pie chart with quantity, percentage, and segment labels 
with a key 

CGPIE3 - Two exploded pie charts with quantity and percentage 
labels with a key 

CGPIE4 - Pie chart with segment and quantity labels 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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PROGRAM DC BARI 


u 

r 

C 

C 

C 

C 


THIS EXAMPLE DRAWS THE BASIC BAR CHART- 


STRUCTURE OF COMMON GRAPHICS LIBRARY R0UT INES USED IN THIS EX. VI l L 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

INDEPENDENT DATA SET, 

DEPENDENT DATA SET, 

NUMBER OF DATA VALUES, 

TITLE OF GRAPH, 

- INDEPENDENT AXIS LABEL, 

- DEPENDENT AXIS LABEL, 

- INDEPENDENT DATA MINIMUM, 

- INDEPENDENT DATA MAXIMUM, 

- DEPENDENT DATA MINIMUM, 

- DEPENDENT DATA MAXIMUM, 

- INDEPENDENT AXIS INDICATOR l : HORIZONTAL 2: VERTICA 
- APPEARANCE INDICATOR 0: UNFILLED l : FILLED) 

DI-3000 LOGICAL DEVICE NUMBER 
0:METAFILE I : SCREEN 2: BOTH) 


C LEZBAR (INDARY 
OEPARY 

C NVALS - 

C TITLE - 

< IAXLBL 

C DAXLBL 

C INDMIN 

C INDMAX 

C DEPMIN 

C DEPMAX 

0 INDHV 

1 IBRAPP 

C LEZINt (I DEV - 

C 

C 

LEZSHW 


C LEZTRM 
C 

G 


•l»ATA SECTION- 

REAL INDMAX, INDMIN, TEMP(IO) ,PRESS(10) 

CHARACTER IAXLBL*80 ,DAXLBL*80 ,TITLE*80 

DMA TEMP /104. . 108. , 112. , 116. , 120. 140. , L44 148 . , 15 1 . ' ■ ^ 
DATA PRESS /436 . 55 ,507 . 95 , 568 . 95 , 554. , 5 » * ’ 

+ 510.45,479.7/ 

' ' : r TT \! T7.E COMMON GRAPHICS LIBRARY AND DI-3000 


IDEV = 1 

CALL LEZINI (IDEV) 
t SET UP LABELED BAR GRAPH 


NVALS = 
TITLE = 
IAXLBL 
DAXLBL 
INDMIN 


' L [ BLC 10W PRESSURE FATIGUE TESTING 
= ' T [ B LC ] EM P ERATURE , [BSUP]0[ESUPHELC)C 
= 'P [ BLC ] RESSURE AT FAILURE, PSI 
= 100 . 
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INDMAX = 160. 

DEPMIN = 400. 

DEPMAX = 600. 

INDHV = 1 
IBRAPP = 1 

CALL LEZBAR(TEMP, PRESS, NVALS, TITLE, IAXLBL.DAXLBL, INDM IN, INDMAX, 
+ DEPMIN, DEPMAX, INDHV .IBRAPP) 

CALL LEZNOT( 'DCBARl ' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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Low pressure fatigue testing 
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PROGRAM DCBAR2 


OfMGJNAL PAGE IS 
0* POOR QUALITY 



C 

C THIS EXAMPLE DRAWS A BAR CHART USING LEZAXN FOR THE INDEPENDENT AXIS. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZAXN (LHV - AXIS INDICATOR 1 : HORIZONTAL 2: VERTICAL, 

C NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

C TSTART - FIRST MAJOR TLCK MARK VALUE, 

C TINCR - MAJOR TICK MARK INCREMENT, 

C TEND - LAST MAJOR TICK MARK VALUE, 

C NTMINR - NUMBER OF MINOR TIGK MARKS PER INCREMENT) 

C 

C LEZBAR ( INDARY - INDEPENDENT DATA SET, 

C DSPARY - DEPENDENT DATA SET 

C NVALS - NUMBER OF DATA VALUES , 

C TITLE - TITLE OF GRAPH, 

C IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL , 

INDMIN - INDEPENDENT DATA M NIMUM, 

INDMAX - INDEPENDENT DATA MAXIMUM, 

DEPMIN - DEPENDENT DATA MINIMUM, 

C DEPMAX - DEPENDENT DATA MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C IBRAPP - APPEARANCE INDICATOR 0: UNFILLED 1: FILLED) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVI IE NUMBER 
C 0:METAFILE 1: SCREEN 2: BOTH) 

C 

C LEZSHW 
C 

C LEZTRM 
C 



C DATA SECTION 

REAL INDMAX,INDMIN,TEMP( 10) ,PRE SS(IO) 

CHARACTER IAXLBL*80 ,DAXLBL*80,1 ITLE*80 

DATA TEMP / 104. , 108 . , 1 12 . , l 16 . 120 . , 140 . , 144 . , 148 . , 1 52 . , 156 . / 

DATA PRESS /436 . 55 , 507 . 95 , 568 . ' 5 , 554 . ,515.3,517.25,589.35,537 .95, 
+ 510.45,479.7/ 

C INITIALIZE COMMON GRAPHICS LIBRA! Y AND DI-3000 

IDEV = 1 

CALL LEZINI (IDEV) 
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-SET UP LABELED BAR GRAPH 


NVALS = 10 

TITLE = 'L[BLC]OW PRESSURE FATIGUE TESTING' 
IAXLBL = 'T[ BLC JEMPERATURE , [ BSUP10 [ESUP] [ELC ] C' 
DAXLBL = 'P [ BLC ] RESSURE AT FAILURE, PSI' 

INDMIN = 100. 

INDMAX = 160. 

DE EMIN = 400. 

DEPMAX = 600. 

INDHV * 1 
IBRAPP = 1 

CALL LEZBAR(TEMP, PRESS, NVALS, TITLE, IAXLBL, DAXLBL 
+ DEPMIN, DEPMAX, INDHV, IBRAPP) 

—SET UP A NUMERIC AXIS 

IHV = 2 
NDEC = -3 
TSTART = 400. 

TINCR » 10. 

TEND = 600. 

NTMINR = 0 

CALL LEZAXN (IHV, NDEC, TSTART, TINCR, TEND, NTMINR) 

CALL LEZN0T( 'DCBAR2' , 7 . ,0. ,3,1,0) 

— SHOW GRAPH 


CALL LEZSHW 

— TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 


CRK5INA1 

of worn 
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Temperature, 


o 


C 


Low pressure fatigue testing 

DCBAR3 
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PROGRAM DC BAR 3 


TH 1S EXAMPLE DRAUS A BAR CHART OSINC LEZAXT POR THE CHARACTER 
independent axis* 

(THESE^ROUTINES^ARE LLSTE^IN^ALPHABETICAL^ORDER^ 0 

S^OT NECESSARILY IN THE ORDER THEY ARE USED...) 

ZAYN ( IHV - AXIS INDICATOR I: HORIZONTAL 2: VERTICAL, 

( NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

T ST ART - FIRST MAJOR TICK MARK VALU , 

TINCR - MAJOR TICK MARK INCREMENT, 

Sm 

‘i;i. -sswaianwra 

- I ABELS - TICK MARK LABELS, 

: see : ss " “ j z s r»f per 


C LEZBAR (INDARY • 
c DEPARY 

C NVALS - 

TITLE - 

C IAXLBL 

c DAXLBL 

c INDMIN 

INDMAX 
C; DEPM1N 

c DEPMAX 

r INUHV - 

, IBRAPP 

G i.h.ZINI (I DEV - 


- INDEPENDENT DATA SET, 

- DEPENDENT DATA SET, 

NUMBER OF DATA VALUES, 

TITLE OF GRAPH, 

- INDEPENDENT AXIS LABEL, 

- DEPENDENT AXIS LABEL, 

- INDEPENDENT DATA MINIMUM, 

- INDEPENDENT DATA MAXIMUM , 

- DEPENDENT DATA MINIMUM, 

- DEPENDENT DATA MAXIMUM, 2:VERTUAL 

- INDEPENDENT AXIS INDICATOR 1 : HORIZONTAL Z.Vfc* 

- APPEARANCE INDICATOR 0:UNFILLED 1 : FILLED) 

DI-3000 LOGICAL DEVICE NIMBER 
0:METAFILE l : SCREEN 2:BOTH) 


C LEZSHW 


» r.Z T RM 


•ATA SECTION 

REAL INDMAX, INDMIN 

REAL TEMP(IO) , PRESS(IO) 


CHARACTER*80 IAXLBL, DAXLBL, TITLE, 

DATA TEMP /104., 108 ., 112 ., 116 ., 120 ., 140 ., 144 ., 148., 152 
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DATA PRESS /436 . 55 , 507 . 95 , 568 . 9 3 , 554. ,515.3,517.25,589.35,537.95, 
+ 510.45,479.7/ 

C INITIALIZE COMMON CRAPHICS LIBRARY AND Dl-3000 

IDEV = 1 

CALL LEZINl (IDEV) 

C SET UP LABELED BAR GRAPH 

NVAL5 * 10 

TITLE = 'L [ BLC ]0W PRESSURE FATIGUE TESTING' 

IAXLBL = 'T[BLC jEMPERATURE, [ BS UP ]0 [ESUP] [ ELC ]C' 

DAXLBL - 'P [ BLC ] RESSURE AT FAILURE, PSI' 

INDMIN = 100. 

INDMAX = 160. 

DEPMIN = 400. 

DEPMAX = 600. 

INDHV = 1 
IBRAPP = 1 

CALL LEZBAR(TEMP , PRESS ,NVALS .TITLE, IAXLBL, DAXLBL, INDMIN, INDMAX, 

+ DEPMIN, DEPMAX, INDHV IBRAPP) 

C SET UP CHARACTER AXIS 

IHV = 1 
NLABS =15 

LABELS = '$ $T1$T2$T3$T4$T5$ $ $ $ $T10$T1 1$T12$T13$T14$ ' 

NTMAJR = 16 
NTMINR = 1 

CALL LEZAXT ( IHV , NLABS .LABELS , NTMAJR .NTMINR) 

C CREATE A NUMERIC AXIS 

IHV = 2 
NDEC = -3 
TSTART = 400. 

TINCR = 10. 

TEND = 600. ' 

NTMINR = 0 

CALL LEZAXN ( IHV , NDEC .TSTART , T INCR .TEND , NTMINR) 

CALL LEZNOT( 'DCBAR3' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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Pressure at f sip * psi 


600 



o 

Temperature, C 


Low pressure fatigue testing 
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PROGRAM DC BAR 4 




C 

C THIS EXAMPLE DRAWS A BAR CHART US3 NG LEZLBR FOR THE CHARACTER 
C INDEPENDENT AXIS. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C OtMETAFILE 1: SCREE? 2: BOTH) 

C 

C LEZLBR (VALUES - DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA VALUES, 

C TITLE - TITLE OF GRAPH, 

C LABELS - TICK MARK LABELS, 

C IAXLBL - INDEPENDENT AXIS LABEL, 

C DAXLBL - DEPENDENT AXIS LABEL, 

C VALMIN - DEPENDENT DATA MINIMUM, 

C VALMAX - DEPENDENT DATA MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2 : VERTICAL , 

C IBRAPP - APPEARANCE INDICATOR 0: UNFILLED I: FILLED) 

C 

C LEZSHW 
C 

C LEZTRM 
C 

C 

C DATA SECTION 

REAL TEMP(IO), PRESS(IO) 

CHARACTER*80 IAXLBL, DAXLBL, TITLE, LABELS 

DATA TEMP / 104 . , 108 . , 112 . , 116 . , 1 ? 0 . , 140 . , 144 . , 148 . , 152 . , 156 . / 

DATA PRESS /436 . 55 , 507 . 95 , 568 . 95 , 554. ,515.3,517.25,589.35,537.95, 
+ 510.45,479.7/ 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV = 1 

CALL LEZINI (IDEV) 

C SET UP LABELED BAR GRAPH 

NVALS = 10 

TITLE = 'L [ BLC ]0W PRESSURE FATIGUE TESTING' 

LABELS « '$104$108$ 112$116$12C$140$144$148$152$156$ ' 

IAXLBL = 'T [ BLC ] EMPERATURE , [BSUP]0[ESUP] [ELC]C' 

DAXLBL = ' P[ BLC ] RESSURE AT FAILURE, PSI' 

VALMIN = 400. 
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VALMAX = 600. 

INDHV = 1 
IBRAPP =* 1 

CALL LEZLBR( PRESS , NVALS , TITLE , LABELS , IAXLBL , DAXLB L , 
+ VALM IN, VALMAX, INDHV, IBRAPP) 

CALL LEZNOT ( 'DCBAR4' , 7 . , 0 . ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 - — 

CALL LEZTRM 

STOP 

END 
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Pressure at failure, p 


ORDINAL PAGE \S 
PF PC OR QUALITY 



104 108 112 116 120 140 144 148 152 156 


Temperature, C 


Low pressure fatigue testing 


DCBAB5 
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PROGRAM DC BAR 5 


c 

C 

C THIS EXAMPLE DRAWS A BAR CHART WITH A KEY AND A CHARACTER 
C INDEPENDENT AXIS. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 
1 : ABSOLUTE 2:ADDITIVE, 

IDTAPP - APPEARANCE INDICATOR 

FOR BARS: 0: UNFILLED 1: FILLED 
FOR LINES: I: LINES 2: MARKERS 3:B0TH, 

KENTRY - KEY ENTRY LABEL FOR THIS DATA SET) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
OrMETAFILE 1: SCREEN 2: BOTH) 

LEZKEY (TITLE - TITLE OF GRAPH, 

C XPOS - X POSITION ON THE PAGE, 

C YPOS - Y POSITION ON THE PAGE, 

C KENTRY - FIRST KEY ENTRY LABEL) 

C KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

C 

C LEZLBR (VALUES - DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA VALUES, 

C TITLE - TITLE OF GRAPH, 

C LABELS - TICK MARK LABELS, 

C IAXLBL - INDEPENDENT AXIS LABEL, 

C DAXLBL - DEPENDENT AXIS LABEL, 

C VALMIN - DEPENDENT DATA MINIMUM, 

C VALMAX - DEPENDENT DATA MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR I : HORIZONTAL 2: VERTICAL, 

C IBRAPP - APPEARANCE INDICATOR 0: UNFILLED 1: FILLED) 

C 

C LEZSHW 
C 

C LEZTRM 
C 

C 

C DATA SECTION- 

REAL TEMP(IO), PRESl(lO), PRES2( 10) 

CHARACTER*80 KENTRY, IAXLBL, DAXLBL, TITLE, LABELS 

DATA TEMP / 104 . , 108 . , 1 1 2 . , 1 16 . , 1 20 . , 140. , 144 . , 1 A8. , 1 52. , 1 56 . / 

DATA PRES 1 /436. 55, 507. 95, 568. 95, 554. ,515.3,517.25,589.35,537.95, 
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+ 510.45,479.7/ 

DATA PRES2 /485 . 01 , 580 . 15 , 496 . 35 , 466 . 45 , 422 . 28, 577 . 16 , 436. 33 , 
+ 540.01,472.03,411.99/ 

C— INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV = 1 

CALL LEZINI (IDEV) 

C SET UP LABELED BAR GRAPH— 

NVALS = 10 

TITLE = 'L [ BLC ]0W PRESSURE FATIGUE TESTING' 

LABELS = '$104$ 108$ 11 2$ 11 6$ 120$ 140$ 144$ 148$ 152$ 156$' 

IAXLBL = 'T [ BLC ] EMPERATURE , [BSUP]0[ESUPJ [ELCJC' 

DAXLBL = 'P [ BLC ] RESSURE AT FAILURE, PSI' 

V AIM IN = 400. 

VALMAX = 600.0 
INDHV = 1 
IBRAPP = 1 

CALL LEZLBR(PRES1 .NVALS, TITLE, LABELS, IAXLBL, DAXLBL, 

+ VALM IN, VALMAX, INDHV, IBRAPP) 

C CREATE A KEY 

TITLE = 'A[BLC]LL0YS' 

XPOS =6.5 
YPOS =6.2 

KENTRY = 'T(BLC]YPE 1' 

CALL LEZKEY (TITLE , XPOS , YPOS , KEN TRY) 

C ADD ADDITIONAL DATA SET 

NVALS = 10 
IDTREL = 1 
IDTAPP = 1 

KENTRY = 'T[BLC]YPE 2' 

CALL LEZDAT (PRES2 , NVALS , IDTREL , IDTAPP , KENTRY) 

CALL LEZN0T('DCBAR5',7. ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY \ND DI-3000 

CALL LEZTRM 

STOP 

END 
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Pressure at failure, psi 


Alloys 
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Temperature, C 


Low pressure fatigue testing 

DCBAR6 
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PROGRAM DCBAR6 




c 

C THIS EXAMPLE DRAWS A BAR CHART WITH A KEY AND A CHARACTER 
C INDEPENDENT AXIS. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 
1: ABSOLUTE 2: ADDITIVE, 

IDTAPP - APPEARANCE INDICATOR 

FOR BARS: 0: UNFILLED l: FILLED 
FOR LINES: 1: LINES 2: MARKERS 3: BOTH, 

KENTRY - KEY ENTRY LABEL FOR THIS DATA SET) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0:METAFILE I:SCREEN 2: BOTH) 

LEZKEY (TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE PACE, 

YPOS - Y POSITION ON THE PACE, 

KENTRY - FIRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

LEZLBR (VALUES - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES , 

TITLE - TITLE OF GRAPH, 

LABELS - TICK MARK LABELS, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL , 

VALMIN - DEPENDENT DATA MINIMUM, 

VALMAX - DEPENDENT DATA MAXIMUM, 

INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 
IBRAPP - APPEARANCE INDICATOR OrUNFILLED I: FILLED) 

LEZSHW 

C LEZTRM 
C 



C DATA SECTION 

REAL TEMP(IO), PRESI(IO), PRE$2(10) 

CHARACTER*80 KENTRY, IAXLBL, DAXLBL, TITLE, LABELS 

DATA TEMP /I04. ,108. ,112. ,116. , 20. ,140. ,144. ,148. ,152. ,156./ 

DATA PRES 1 /436. 55, 507. 95, 568. 9 3, 554. ,515.3,517.25,589.35,537.95, 
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+ 510.45,479.7/ 

DATA PRES2 /485 . 01 , 580 . 15 , 496 . 33 , 466. 45 , 422 . 28 , 57 7 . 16 , 436 . 33 , 
+ 540.01,472.03,411.99/ 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV = 1 

CALL LEZ INI (IDEV) 

C SET UP LABELED BAR GRAPH 

NVALS =10 

TITLE = 'L[BLC]OW PRESSURE FATIGUE TESTING' 

LABELS = '$104$108$112$116$120$140$144$148$152$156$' 

IAXLBL = 'T [ BLC ] EMPERATURE , [ BSUP ]0 [ESUP ] lEL(J ]C' 

DAXLBL = 'P[ BLC] RES SURE AT FAILURE, PSI' 

VALMIN = 100. 

VALMAX = 1100.0 
INDHV = 1 
IBRAPP = 1 

CALL LEZLBR(PRES1 , NVALS, TITLE, LABELS, IAXLBL, DAXLBL, 

+ VALMIN, VALMAX, INDHV, IBRAPP) 

C CREATE A KEY 

TITLE = 'A[BLC ] LLOYS' 

XPOS =6.2 
YPOS = 7.0 

KENTRY = 'T[BLC]YPE 1' 

CALL LEZKEY (TITLE , XPOS , YPOS .KENTRY) 

C ADD ADDITIONAL DATA SET 

NVALS =10 
IDTREL = 2 
IDTAPP = 1 

KENTRY = 'T[BLC]YPE 2' 

CALL LEZ DAT (PRES2 .NVALS , IDTREL, IDTAPP, KENTRY) 

CALL LEZN0T('DCBAR6' ,7. ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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Independent data 


Plot of y= | 1 
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PROGRAM DGLIN1 


C 

c 

c 

C THIS EXAMPLE DRAWS A SLMPLE LINE PLOT. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C 0:METAFILE 1: SCREEN 2: BOTH) 

C 

C LEZLIN (INDARY - INDEPENDENT DATA SET, 

C DEPARY - DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA PAIRS, 

C TITLE - TITLE OF GRAPH, 

C IAXLBL - INDEPENDENT AXIS LABEL, 

C DAXLBL - DEPENDENT AXIS LABEL, 

C INDMIN - INDEPENDENT AXIS MINIMUM, 

C INDMAX - INDEPENDENT AXIS MAXIMUM, 

C DEPMIN - DEPENDENT AXIS MINIMUM, 

C DEPMAX - DEPENDENT AXIS MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C LINAPP - APPEARANCE INDICATOR i:LINE 2:MARKER 3: BOTH) 

C 

C LEZSHW 
C 

C LEZTRM 
C 

C 

C DATA SECTION- 

CHARACTER TITLE*80 , IAXLBL*80 , DAXLBL*80 
REAL X(0: 10), Y(0: 10), INDMIN, INDMAX 

DTRAD=ATAN(l.)/45. 

DO 10 1=0,10 
X( I )=REAL( I ) 

10 Y(I )=ABS( 100. *COS(X( I )*18. *DTRAD) ) 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV=1 

CALL LEZINI(IDEV) 

C SET UP A LINE PLOT 

NVALS=1 1 
TITLE= 

+ 'P[BLC]LOT OF Y=[FONT = 24] [ELC]B[FONT] 100[ BLC ] COS 1 8X' / / 

+ ' [FONT=24 ] [ELC ] B' 

IAXLBL='I[ BLC INDEPENDENT DATA ON THE X-AXIS' 
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DAXLBL='D [ 8LC ] EPENDENT DATA ON THE Y-AXIS' 
INDMIN=X(0) 

INDMAX=X( 10 ) 

DEPMIN=Y(5) 

DEPMAX=Y(10) 

INDHV=1 

LINAPP=l 

CALL LEZLIN(X,Y,NVALS,TITLE,IAXLBL,DAXLBL,INDMIN, 
+INDMAX,DEPMIN,DEPMAX,INDHV,LINAPP) 

CALL LEZNOT( 'DCLIN1' , 7 . ,0 . ,3,1,0) 

C SHOW GRAPH 


CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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PROGRAM DCLIN2 




c 

C THIS EXAMPLE DRAWS A LINE CHART W.TH AUTOSCALED HORIZONTAL 
C AND VERTICAL AXES. 

C 

STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED III ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
OrMETAFILE I: SCREEN 2:BOTH) 

LEZLIN (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SIT, 

NVALS - NUMBER OF DATA PAIRS, 

TITLE - TITLE OF CHART, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS MAXIMUM, 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAXIMUM, 

INDHV - INDEPENDENT AXIS INDICATOR I: HORIZONTAL 2: VERTICAL, 
LINAPP - APPEARANCE INDICATOR l : LINE 2:MARKER 3: BOTH) 

LEZSHW 

C LEZTRM 
C 

C 

C VARIABLE DECLARATION AND INITIALIZATION 

CHARACTER TITLE*256 , I AXLBL*80 , DAXLBL*80 
REAL SPAN ( 25) , CLIFT ( 2 5) .INDMIN, INDMAX 

DATA CLIFT/. 4748, .6962, .8165, .9102,. 9631, 1.005, 1.063, 1.1 12, 
+1.U6, 1.170, 1.187, 1.199, 1.207, 1.210, 1.209, 1. 203, 1.193, 1.180, 
+1.163,1.142,1.117,1.094,1.076,1.028, .5721/ 

RI=-1 .0 
DO 1 1=1,25 
RI=RI+.04 

1 SPAN ( I ) =R I 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV=0 

CALL LEZINI ( IDEV ) 

C SET UP A LINE PLOT 

C ESTABLISH CHART AS A LINE CHART, AND ENTER FIRST DATA SET. 

C *** NOTE: AUTOSCALING AXIS IS OBTAINED BY SETTING 'INDMIN' EQUAL 

C TO 'INDMAX' AND 'DEMIN' EQUAL TO 'DEPMAX'. 
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NVALS^25 

TITLE='V [ BLC ]ORTEX FLOW ABOUT A 60[BSUP)0 [ESUPJ DELTA WING WITH [F 
+ONT=9]A[FONT]*20[BSUP]O' 

IAXLBL 5 *' 2 [ BLC ] Y/B ' 

DAXLBL='C [BLCJOEFFICIENT OF LIFT' 

INDMIN=0. 

INDMAX~0. 

DEPMIN=0. 

DEPMAX=0. 

INDHV-1 

LINAPP=1 

CALL LEZLIN (SPAN, CLIFT ,NVALS .TITLE , IAXLBL, DAXLBL, INLMIN, INDMAX, 
+DEPMIN , DEPMAX, LNDHV.LINAPP) 

CALL LEZNOT( 'DCLLN2' ,7 . ,0. ,3,1,0) 

C SHOW CHART 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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PROGRAM DCLIN3 


C 

C 

c 

C THIS EXAMPLE DRAWS A LINE CHART WITH A DECREASING VERTICAL AXIS. 

C THE COMMENTS IN THIS PROGRAM EMPHASIZE DECREASING AXES. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C OtMETAFILE l : SCREEN 2: BOTH) 

C 

C LEZLIN (INDARY - INDEPENDENT DATA SET, 

C DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA PAIRS, 

TITLE - TITLE OF CHART, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS MAXIMUM, 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAXIMUM, 

INDHV - INDEPENDENT AXIS INDICATOR l:HORIZONTAL 2:VERTICAL, 
LINAPP - APPEARANCE INDICATOR I: LINE 2:MARKER 3: BOTH) 


LEZSHW 

LEZTRM 


— VARIABLE DECLARATION AND INITIALIZATION 

CHARACTER TITLE*256 , IAXLBL*80 ,DAXLBL*80 
REAL SPAN( 25 ),CLIFT(2 5) , INDMIN, INDMAX 

DATA CLIFT/. 4748, . 6962 , .8165, . 9102 , . 9631 , I .005 , 1 .063, 1 . I 12 , 
+1.146,1.170,1.187,1.199,1.207,1.210,1.209,1.203,1.193,1.180, 
+1.163,1.142,1.117,1.094,1.076,1.028, .5721/ 

RI=-1 .0 
DO 1 1=1,25 
RI=RI+.04 
SPAN(I)=RI 

INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV=0 

CALL LEZINI(IDEV) 

SET UP A LINE PLOT— 

ESTABLISH CHART AS A LINE CHART, AND ENTER FIRST DATA SET. 

*** NOTE: DECREASING AXIS IS OBTAINED BY SETTING 'DEPMIN' TO BE 
GREATER THAN 'DEPMAX', OR AS IN THIS CASE, 'DEPMIN' 
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c 


AND 'DEPMAX' EQUAL '0 -1 (FOR AN AUTOSCALED AXIS). 


NVALS=25 

TITLE 3 'V [ BLC ]ORTEX FLOW ABOUT A 60[BSUP]0[ESUP] DELTA WING WITH [F 
+0NT=9 ] A [ FONT] =20 [ BSUP ]0' 

IAXLBL='2 [BLC ] Y/B' 

DAXLBL='C [ BLC ]0 EFFICIENT OF LIFT' 

INDMIN— 1. 

INDMAX=0. 

DEPMIN— L.O 
DEPMAX— 1.0 
INDHV=1 
LINAPP=1 

CALL LEZLIN(SPAN, CLIFT, NVALS ,T ITLE.IAXLBL.DAXLBL, INDMIN, INDMAX, 
+DEPMIN, DEPMAX, INDHV.LINAPP) 

CALL LEZNOT('DCLIN3',7. ,0. ,3,1,0) 

C SHOW CHART 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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Dependent data on the y— axis 



Independent data on the x— axis 


Plot of y= | 100cosl8x| 


DCLIN4 
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PROGRAM DCLIN4 




c 

THIS EXAMPLE DRAWS A LINE CHART WITH NUMERIC AXES. 

C STRUCTURE OF COMMON GRAPHICS LIBRAPY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDEP THEY ARE USED!!!) 

C 

C LEZAXN ( IHV - AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

C TSTART - FIRST MAJOR TICK PARK VALUE, 

C TINCR - MAJOR TICK MARK INCREMENT, 

C TEND - LAST MAJOR TICK MARK VALUE, 

C NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C 0:METAFILE 1: SCREEN 2: BOTH) 

C 

C LEZLIN (INDARY - INDEPENDENT DATA JET , 

C DEPARY - DEPENDENT DATA SE'\ 

C NVALS - NUMBER OF DATA PAIRS, 

C TITLE - TITLE OF GRAPH, 

C IAXLBL - INDEPENDENT AXIS .ABEL, 

C DAXLBL - DEPENDENT AXIS LASEL, 

C INDMIN - INDEPENDENT AXIS MINIMUM, 

C INDMAX - INDEPENDENT AXIS MAXIMUM , 

C DEPMIN - DEPENDENT AXIS MINIMUM , 

C DEPMAX - DEPENDENT AXIS MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C LINAPP - APPEARANCE INDICATOR 1:LINE 2:MARKER 3: BOTH) 

C 

C LEZSHW 
C 

C LEZTRM 
C 

C 

C DATA SECTION- 

CHARACTER TITLE*80, IAXLBL*80,C AXLBL*80 
REAL X(0: 10), Y(0: 10), INDMIN, INDMAX 

DTRAD=ATAN(l. )/45. 

DO 10 1=0,10 
X( I) =REAL( I ) 

10 Y(I)=ABS(100.*C0S(X(I)*18.*I TRAD)) 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV=1 

CALL LEZINI(IDEV) 
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C SET UP A LINE PLOT 


NVALS=L 1 
TITLE= 

+ 'P[BLC]LOT OF Y" [FONT=*24] [ELC ] B [FONT] 100[BLC]COS18X' / / 
+ '[FONT=24] [ELC]B' 

I AXLBL=' I [ BLC ] N DEPENDENT DATA ON THE X-AXIS' 

DAXLBL='D[ BLC JEPENDENT DATA ON THE Y-AXIS' 

INDMIN=X(0) 

INDMAX=X(LO) 

DEPMIN=Y( 5) 

DEPMAX=Y (10) 

INDHV=1 

LINAPP=1 

CALL LEZLIN( X , Y , NVALS .TITLE , IAXLBL , DAXLBL , INDMIN , 
+INDMAX,DEPMIN,DEPMAX,INDHV,LINAPP) 

C CREATE A NUMERIC AXIS 


IHV=2 
NDEC=-3 
TSTART=Y ( 5 ) 

TINCR=IO. 0 
TEND=Y(10) 

NTMINR=4 

CALL LEZAXN( IHV ,NDEC .TSTART ,TINCR,TEND,NTMINR) 

CALL LEZNOT ('DCLIN4',7. ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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values 
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PROGRAM DCLIN5 


c > 

C 

C THIS EXAMPLE DRAWS A SIMPLE LINE CHART WITH CHARACTER AND NUMERIC AXES 
C 

C STRUCTURE OP COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZAXN ( IHV - AXIS INDICATOR 1: HORIZONTAL 2:VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

LEZAXT (IHV - AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

NLABS - NUMBER OF TICK MARK LABELS IN STRING, 

LABELS - TICK MARK LABELS, 

NTMAJR - NUMBER OF MAJOR TICK MARKS , 

NTMINR - NUMBER OF MINOR TICK MARK PER INCREMENT) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0:METAFILE 1: SCREEN 2: BOTH) 


LEZLLN (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA PAIRS, 

TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

C INDMAX - INDEPENDENT AXIS MAXIMUM, 

C DEPMIN - DEPENDENT AXIS MINIMUM , 

C DEPMAX - DEPENDENT AXIS MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C LINAPP - APPEARANCE INDICATOR ltLINE 2:MARKER 3: BOTH) 

C 

C LEZSHW 
C 

C LEZTRM 
C 

C 


C DATA SECTION 

CHARACTER TITLE*80, IAXLBL*80,DAXLBL*80,LABELS*80 
REAL PI(25),SSIN(25), INDMIN, INDMAX 

WPI=ACOS(-l . ) 

DO 10 1=1,25 
RI=I 

PI(I) = (RI-1. )*(WPI/12. ) 
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SSIN(I)=SIN(PI(I)) 

10 CONTINUE 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV-1 

CALL LEZINI(IDEV) 

C SET UP A LINE PLOT 

NVALS=25 

TITLE='S [ BLC ] INE PLOT' 

IAXLBL= 'P [ BLC ] ERIOD IN RADIANS' 

DAXLBL='T [ BLC ]RIGO NOMETRIC VAL JES' 

INDMIN=PI ( 1 ) 

INDMAX=PI(25 ) 

DEPMIN=-2 . 0 
DEPMAX=2 . 0 
INDHV=1 
LINAPP= 1 

CALL LEZLIN(PI, SS IN, NVALS .TITLE , IAXLBL , DAXLBL, INDM IN , 
+INDMAX, DEPMIN .DEPMAX, INDHV ,LIN\PP) 

C CREATE A CHARACTER AXIS 


IHV-1 

NLABS=3 

LABELS 3 ' $0$ [F0NT=9 ] [ BLC ] Q$ 2 [ F0NT=9 ] [BLC]Q$' 

NTMAJR-3 

NTMINR=3 

CALL LEZAXT ( IHV , NLABS , LABELS , N IMA JR , NTMINR) 
C CREATE A NUMERIC AXIS 


IHV=2 
NDEC=-1 
TSTART=-2 . 0 
TINCR-1.0 
TEND=2 . 0 
NTMINR=4 

CALL LEZAXN( IHV , NDEC .TSTART , T1 NCR .TEND, NTMINR) 

CALL LEZNOT( 'DCLIN5' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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Key of functions 


y=sin(x) 

y=coa(x) 



2rr 


Period in radians 


Plot of trigonometric functions 

DCLIN6 


ooooooooooooooooonooonaoooooooonooooooooooooo 


PROGRAM DCLIN6 


c 

C 

C THIS EXAMPLE DRAWS A MULTI-LINE CH \RT WITH A KEY. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZAXN (IHV - AXIS INDICATOR l:HORIZONTAL 2:VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

LEZAXT (IHV - AXIS INDICATOR I: HORIZONTAL 2:VERTICAL, 

NLABS - NUMBER OF TICK MARK LABELS IN STRING, 

LABELS - TICK MARK LABELS, 

NTMAJR - NUMBER OF MAJOR TICK MARKS, 

NTMINR - NUMBER OF MINOR TICK MARK PER INCREMENT) 

LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES , 

IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 
1: ABSOLUTE 2: ADDITIVE, 

IDTAPP - APPEARANCE INDICATOR 

FOR BARS: 0: UNFILLED I: FILLED 
FOR LINES: I: LINES 2: MARKERS 3: BOTH, 

KENTRY - KEY ENTRY LABEL F )R THIS DATA SET) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0:MEfAFILE 1: SCREEN 2: BOTH) 

LEZKEY (TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE FAGE, 

YPOS - Y POSITION ON THE FAGE, 

KENTRY - flRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

LEZLIN (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA PAIRS, 

TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS MAXIMUM, 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAXIMUM, 

INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 
C LINAPP - APPEARANCE INDICATOR 1:LINE 2:MARKER 3: BOTH) 

C 
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LEZSHW 

LEZTRM 


C DATA SECTION 

CHARACTER TITLE*80, IAXLBL*80,DAXLBL*80,LABELS*80,KENTRY*80 
REAL PI(25),SSIN(25) ,INDMIN,INDMAX,CCOS(25) 

WPI=ACOS(-I . ) 

DO 10 1=1,25 
RI=I 

PI(I)=<RI-1. ) * ( WPI / 1 2 . ) 

SSIN(I)=SIN(PI(I) ) 

CCOS(I)=COS(PI(I)) 

10 CONTINUE 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

I DEV=1 

CALL LEZINI(IDEV) 

C SET UP A LINE PLOT 

NVALS=25 

TITLE='P [ BLC ] LOT OF TRIGONOMETRIC FUNCTIONS' 

IAXLBL='P [ BLC ]ERIOD IN RADIANS' 

DAXLBL='T [ BLC ]RIGO NOMETRIC VALUES' 

INDMIN=PI ( 1 ) 

INDMAX=PI(25) 

DEPMIN=-2.0 
DEPMAX=2 . 0 
INDHV=1 
LINAPP=1 

CALL LEZLIN ( PI , SS IN , NVALS .TITLE , IAXLBL, DAXLBL, INDM IN , 

+1 NDMAX.DE PM IN , DEPMAX.INDHV.LINAPP) 

C CREATE A KEY 

TITLE='K[BLC ]EY OF FUNCTIONS' 

XP0S=5 . 25 
YP0S=6 . 4 

KENTRY=' [ BLC ] Y=SIN(X) ' 

CALL LEZKEY (TITLE , XPO S , YPOS , KENTRY ) 

C INPUT AN ADDITIONAL DATA SET 

NVALS=2 5 
IDTREL= 1 
IDTAPP=1 

KENTRY=' [BLC ]Y=COS(X) ' 

CALL LEZDAT(CCOS, NVALS, IDTRKL, l DTAPP , KENTRY) 
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C CREATE A CHARACTER AXIS 


IHV = 1 
NLABS=3 

LABELS®' $0$ [ FONT=9 ] [ BLC ]Q$2 [ FON C=9 ] [BLC]Q$' 

NTMAJR=3 

NTMINR=3 

CALL LEZAXT ( I HV , N LABS , LABELS , NT1AJR , NTM INR ) 

C CREATE A NUMERIC AXIS 

IHV=2 
NDEC=-1 
TSTART=-2 . 0 
TINCR=1 . 0 
TEND-2.0 
NTMINR=4 

CALL LEZAXN(IHV,NDEC ,TSTART,TII CR .TEND, NTMINR) 

CALL LEZNOT( 'DCLIN6' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 


CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRAR” AND DI-3000 

CALL LEZTRM 

STOP 

END 
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PROGRAM DC LOG 1 


C 

c 

C THIS EXAMPLE DRAWS A GRAPH WITH A LC G BASE 10 AXIS 
C 

C STRUCTURE OF COMMON GRAPHICS LIBRAR': ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZAXN (IHV - AXIS INDICATOR 1 : HORIZONTAL 2:VERTICAL, 

C NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

C TSTART - FIRST MAJOR TICK MARK VALUE, 

C TINCR - MAJOR TICK MARK INCREMENT, 

C TEND - LAST MAJOR TICK MARK VALUE, 

C NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NIMBER 
C 0: METAFILE I: SCREEN 2: BOTH) 

C 

C LEZLOG (INDARY - INDEPENDENT DATA SiT, 

C DEPARY - DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA VALUES, 

C TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS M INIMUM , 

INDMAX - INDEPENDENT AXIS MAXIMUM, 

DEPMIN - DEPENDENT AXIS M1NLMUM, 

DEPMAX - DEPENDENT AXIS MAXIMUM , 

IAXTYP - DETERMINE AXIS TYFE I : LOG IND 2: LOG DEP 3: LOG BOTH, 
IHLOGI - HORIZONTAL AXIS TICK MARK LABEL TYPE, 

IVLOGI - VERTICAL AXIS TICK MARK LABEL TYPE, 

INDHV - INDEPENDENT AXIS INDICATOR l -.HORIZONTAL 2: VERTICAL, 
LINAPP - APPEARANCE INDICATOR I: LINE 2: MARKER 3: BOTH) 

LEZSHW 
LEZTRM 


C DATA SECTION 

CHARACTER TITLE*80,IAXLBL*80,DAXLBL*80,IOPT*8 
LOGICAL LVALUE 

REAL FREQ(IOO) , POWER( 100) , INDM N, INDMAX 
DATA (POWER(I) ,1=1,76)/ 

+7066.0770323, 313987.585659/, 23005.34014683, 25971.13637497, 

+ 23314.47811626, 16222.72126064, 11123.46224798, 8573.673551723, 

+ 6533.280733426, 6567.484820724, 5931.92717933, 3100.185764845, 

+ 1075.542233512, 2304.552081512, 3938.878376374, 2372.668800947, 

+ 990.5827153465, 1139.692923046, 539-1035104119, 186.2399260743, 

+ 185.9121866205, 6922.275564162, 47871.80671708, 101610.8109471, 
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+90151.05656181, 32565.81919631, 3126.25985372, 5378.883275207 

+ 19139.27829711, 26311.51279586, 18051.10302768, 7595.925085295,’ 
+ 2769.064915013, 1114.906853713, 472.3435990609, 336 . 5553643497 [ 
+ 224.6112529072, 292.8078714839, 913.1650006148, 1111 .290988571 ’ 
+ 763.2538952391, 1036.757022708, 2318.840862193, 1815.115702427’ 
+ 1546.468077257, 30998.79018191, 90446.39960755, 99542. 65318885* 
+ 46517.56984878, 8264.407149583, 477.4873134733, 82.183079214, 

+ 67.7501808438, 136.6466583528, 197.61471^2091, 229 . 3505457034 

+ 643.2165902202, 1824.921600301, 5246.018888617, 9355.942325835’ 
+ 8240.202957789, 4042.516486596, 1615.454279283, 876.7523693048’ 
+ 780.321551955, 869.2380712535, 806.9102907816, 1417.485863451,’ 

+ 13314.08558278, 42705.82833591, 56933.22987158, 34522 . 64829539 ’ 
+8369.70034301, 423.4410260173, 1721.308093883, 3815.021552281/ 

DATA (POWER(I), 1=77,100)/ 

+ 3096.896818539, 1130.33337685, 351.6629052997, 323.9146852672, 

+496.8216394068, 716.3789266813, 707.1830537755, 395.452882063,’ 
+ 185.9595078555, 349.7278623283, 579.1256929328, 427.7957796537, 
+ 339.4866401359, 404.7726592585, 3303.494231505, 44732.3344563 
+ 168132.2764905, 259620.2781873, 179647.069922, 51634.19154093 

+ 4701.338454798, 220.74733211, 377.2257021375, 552.6383507909/ 

DO 1 1=1,100 
RI=I 

FREQ(I)=RI-1. 

1 POWER(I)=LOG10(POWER(I) ) 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV=1 

CALL LEZINI(IDEV) 

C SET UP A LOG PLOT, INCOMING DATA HAS BEEN CONVERTED 

NVALS=100 

TITLE='P[BLC]OWER LEVEL VS. FREQUENCY' 

I AXLB L= ' F [ B LC ] REQUENC Y , [ELC]H[BLC]Z' 

DAXLBL='P [ BLC jOWER LEVEL' 

INDMIN=0 . 0 
INDMAX=100 . 0 
DEPMIN=L0G10(65 . 0 ) 

DEPMAX=L0G10( 290000. 0) 

IAXTYP=2 

IHL0GI=0 

IVL0GI=0 

INDHV=l 

LINAPP=1 

CALL LEZLOG(FREQ, POWER , NVALS .TITLE , IAXLBL, DAXLBL, INDMIN, INDMAX , 
+DEPMIN .DEPMAX, IAXTYP , IHLOGI , IVLOGI , INDHV.LINAPP) 

C CREATE AN INTEGER AXIS 

IHV=1 
l3=-3 
NDEC=I3 
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TSTART=*0.0 
TINCR=10.0 
TEND*100. 0 
NTMINR=l 

CALL LEZAXN(IHV,NDEC,TSTART , TIN CR, TEND, NTMINR) 

CALL LEZNOT( 'DCL0G1' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

c TERMINATE COMMON GRAPHICS LIBRAR’i AND DI-3000 

CALL LEZTRM 

STOP 

END 
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PROGRAM DCMIX1 


C THIS EXAMPLE DRAWS A MULTI-LINE GRAPH WITH AUTOSCALE HORIZONTAL AXIS 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 


C LEZDAT (DEPARY - ADDITIONAL DEPEND! NT DATA SET, 

C NVALS - NUMBER OF DATA VALIES, 

C IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 

C 1: ABSOLUTE 2 : ADDIT VE , 

C IDTAPP - APPEARANCE INDICATOR 

C FOR BARS: 0: UNFILLED 1: FILLED 

q FOR LINES: 1: LINES 2:MARKERS 3: LINES AND MARKERS 

C KENTRY - KEY ENTRY LABEL FOR THIS DATA SET) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C Q:METAFILE 1: SCREEN 2: BOTH) 

C 


C LEZKEY 
C 

c 

c 

c 

c 

C LEZLIN 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C LEZOPT 

C 

C 

C LEZSHW 
C 

C LEZTRM 
C 

C 


(TITLE - 
XPOS - 
YPOS - 
KENTRY 
KEY IS 

(INDARY 
DEPARY 
NVALS - 
TITLE - 
IAXLBL 
DAXLBL 
INDMIN 
INDMAX 
DEPMIN 
DEPMAX 
INDHV 
LINAPP 

( IOPT - 
IVALS 


TITLE OF CHART, 

X POSITION ON THE P \GE , 

Y POSITION ON THE PAGE, 

- FIRST KEY ENTRY LABEL) 

POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

- INDEPENDENT DATA SET, 

- DEPENDENT DATA SET, 

- NUMBER OF DATA PAIRS, 

- TITLE OF GRAPH, 

- INDEPENDENT AXIS LABEL, 

- DEPENDENT AXIS LABEL, 

- INDEPENDENT AXIS MINIMUM, 

- INDEPENDENT AXIS MAXIMUM, 

- DEPENDENT AXIS M NIMUM , 

- DEPENDENT AXIS MAXIMUM, 

- INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

- APPEARANCE INDICATOR l : LINE 2:MARKER 3: BOTH) 


OPTION NUMBER, 

- OPTION VALUE (S ) ) 


c VARIABLE DECLARATION AND INITIALIZATION 

CHARACTER TITLE*2 56 , IAXLBL*8C , DAXLBL*80 , KENTRY*80 

REAL SPAN (2 5 ) , CLIFT (25) ,C DRAG (25) ,CMOMNT(25) , INDMIN , INDMAX 

DATA CLIFT/. 4748,. 6962, .8165,. 9102, .963 1,1- 005, 1.06 3, 1.H2, 
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+1.146,1.170,1.187,1.199,1.207,1.210,1.209,1.203,1.193,1.180, 

+1. 163,1.142,1. 117, 1.094, 1.076,1.028, .3721/ 

DATA CDRAG/.1674, . 2426 , . 2827 , . 3137 ,. 3307 , . 3439, . 3629 , . 3789 , 

+ .3897, .3971, .4021, .4036, .4077, .4084, .4076, . 4054, . 4020 , . 397 5 , 
+.3919, .3852, .3776, .3705, .3652,. 3519,. 3038/ 

DATA CMOMNT/-. 3639, -.4936, -.5337, -.5454, -.5263, -.4971, -.4704, 
+-.4348, -.3902, -.3404, -.2878, -.2336, -.1790, -.1246, -.07 136, 

+-. 02016,. 02818,. 07293,. 1133,. 1484,. 1774,. 2022,. 2261,. 2264, -.062 16/ 

RI=-1 . 0 
DO 1 1=1,25 
RI=RI+.04 

1 SPAN ( I ) =R I 

C INITIALIZE GRAPHICS, AND WRITE TO THE INTERACTIVE DEVICE 

IDEV=1 

CALL LEZINI ( IDEV ) 

C ESTABLISH CHART AS A LINE CHART, AND ENTER FIRST DATA SET 

C NOTE: AUTOSCALE IS SELECTED BY SETTING INDMIN AND INDMAX TO THE 
C SAME VALUE. THE SAME IS TRUE FOR DEPMIN AND DEPMAX. 

NVALS=25 

TITLE='V[BLC]ORTEX FLOW ABOUT A 60(BSUP]0[ESUP] DELTA WING' 
IAXLBL=' (BLCJ2Y/B' 

DAXLBL='P [ BLC ] ROPERTIES FOR [ F0NT=9 ] [ BLC ] A[FONT] =20 [ BSUP ]0 ' 

C SET INEMIN AND LNDMAX TO AUTOSCALE WITH INCREASING VALUES. 

INDMIN=1. 

INDMAX=1. 

DEPMIN=0. 

DEPMAX=0. 

INDHV=1 

LINAPP=1 

CALL LEZL IN (SPAN, CLIFT, NVALS .TITLE, I AXLBL.DAXLBL, INDMIN, INDMAX, 
+DEPMIN, DEPMAX, INDHV , LINAPP) 

C ESTABLISH THE SECOND DATA SET— 

NVALS=25 

IDTREL=1 

LINAPP=1 

KENTRY='C [ BSUB ] [BLC]D' 

CALL LEZDAT (CDRAG , NVALS , IDTREL , LINAPP, K.ENTRY) 

C ESTABLISH THE THIRD DATA SET 

NVALS=25 

IDTREL=1 

LINAPP=1 

KENTRY='C [ BSUB ] [BLC]M' 

CALL LEZDAT(CMOMNT, NVALS, IDTREL, LINAPP, XENTRY) 

C SET OPTIONS 


B - 46 



o n 


C DO NOT CLEAR SCREEN, AND DO NOT PAUSE. 

CALL LEZOPT( 'PAUSE' , 0) 

CALL LEZOPT( 'CLEAR', 0) 

C CHANGE VERTICAL AXIS LENGTH TO 2/3 OF HALF PAGE HEIGHT. 

VAXLEN=2 . 

CALL LEZOPT( 'VAXLEN' , VAXLEN) 

C CHANGE POSITION OF FIRST CHART. 

YORG-1.2 

CALL LEZOPT('YORIGIN'.YORG) 

C SHOW CHART 

CALL LEZSHW 

q ************* SECOND CHART ************** 

DO 2 1=1,25 

CDRAG( I )=CDRAG( I )-( SQRT(ABS(CDLAG( l ))))+• 7 
CMOMNT ( I ) =CMOMNT ( I ) - ( SQRT ( ABS (CMOMNT ( I ))))+. 3 
2 CLIFT(I)=CLIFT(I)-(SQRT(ABS(CLIFT(I))))+.7 

C 

C THIS EXAMPLE DRAWS A MULTI-LINE GRAPH WITH AUTOSCALE HORIZONTAL AXIS. 
C NOTE, THIS EXAMPLE IS THE SAME AS C.GLIN5, EXCEPT LEZLIN'S VALUES. 

C THEREFORE, SEE CGLIN5 FOR DETAILS. 

C 

C INITIALIZE GRAPHICS, AND WRITE To THE INTERACTIVE DEVICE 

IDEV-1 

CALL LEZINI ( IDEV ) 

C ESTABLISH CHART AS A LINE CHART, AND ENTER FIRST DATA SET 

NOTE: AUTOSCALE IS SELECTED BY SETTING INDMIN AND INDMAX TO THE 
SAME VALUE. 

NVALS=25 

C NO PLOT TITLE IS NEEDED; ALREADY 0 JE FROM FIRST CHART. 

TITL£=' ' 

IAXLBL=' (BLCJ2Y/B' 

DAXLBL='P[BLC]EOPERTIES FOR [F0NT=9 ] [BLC ] A[FONT] =30 [ BSUP ]0 ' 

C SET INDMIN AND INDMAX TO AUTOSCALE WITH INCREASING VALUES. 

INDMIN*!. 

INDMAX* I. 

DEPM IN=0 . 

DEPMAX=0 . 

INDHV=1 

LINAPP=1 

CALL LEZLIN( SPAN, CLIFT, NVALS , TITLE, I AXLBL , DAXLBL , INDMIN, INDMAX, 
+DEPMIN ,DEPMAX, INDHV , LINAPP) 

C CREATE A KEY 


TITLE*' ' 
XP0S=7 . 0 
YP0S=6 . 7 5 
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K£NTRY='C [ BSUB ] [BLC] [FONT=U]L' 

CALL LEZKEY (TITLE, XPOS ,YPOS , KENTRY) 

C ESTABLISH THE SECOND DATA SET 

NVALS=25 

IDTREL=L 

LINAPP=L 

K£NTRY='C [ BSUB ] [ BLC ] D' 

CALL LEZDAT(CDRAG, NVALS , IDTREL, LINAPP .KENTRY) 

C ESTABLISH THE THIRD DATA SET 

NVALS=25 

IDTREL=L 

LINAPP=1 

KENTRY='C [BSUB] [BLC ]M ' 

CALL LEZ DAT (CMOM NT , NVALS , IDTREL, LINAPP, KENTRY ) 

C 

C SET OPTIONS 

C CHANGE VERTICAL AXIS LENGTH TO SAME AS PREVIOUS CHART. 

CALL LEZOPT('VAXLEN',2.) 

C POSITION SECOND CHART 

CALL LEZOPT('YORIGIN',4.0) 

C DRAW CHART, THEN TERMINATE 

CALL LEZN0T('DCMIX1',7. ,0. ,3,1,0) 

CALL LEZSHW 
CALL LEZTRM 
STOP 
END 


B - 48 



Main 


or 




> 


Meet with supervisor 
1.0 

11 . 1 % 



Answer questions 
1.6 

17.8% 


Daily activities 

DCPIE1 


B - 49 


o o o 


PROGRAM DCPIEI 


C- 

C 

C 

C 

C 

C 

C 

C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


THIS EXAMPLE DRAWS A PIE CHART WITH QUANTITY, PERCENTAGE 
AND SEGMENT LABELS DISPLAYED. ^NIAGE, 

0F C0MM0N GRAPHICS LIBRARY ROUTINES USED LN THIS 
( HESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZ INI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0:METAEILE I: SCREEN 2: BOTH) 

LEZPIE (SEGS - DATA SET, 

NUM - NUMBER OF DATA VALUES, 

TITLE - TITLE OF GRAPH, 

NEXPL - NUMBER OF FIRST EXPLODED SEGMENT, 

NEXP2 - NUMBER OF LAST EXPLODED SEGMENT,' 

LFORML - QUANTITY LABEL INDICATOR 0:DO NOT DISPLAY 
LFORM2 -PERCENTAGE LABEL INDICATOR 0:D0 NOT DISPLAY 

LEZPLB (NOPLB - SEQUENT NUMBER ASSOCIATED WITH LABEL 
LABEL - SEGMENT LABELS, 

KEY - KEY ENTRY LABEL FOR THIS SEGMENT) 

LEZSHW 


LEZTRM 


C DATA SECTION 

REAL SEGS (6) 

CHARACTER*80 TITLE, KENTRY, LABEL, K 
DATA SEGS/0.5, 1.2, 1.0, 3.2, 1.6, 1.5/ 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV =* 1 

CALL LEZ INI (IDEV) 


c SET UP PIE GRAPH AND LABELING 


TITLE ■ 'D[BLC]AILY ACTIVITIES' 

NUM = 6 

NEXP1 = 0 

NEXP2 = 0 

LFORM 1 =■ 1 

LF0RM2 = 1 


CALL LEZPIE ( SEGS , NUM .TITLE , NEXP1 , NEXP2 , LF0RM1 , LF0RM2 ) 


EXAMPLE 


1: DISPLAY , 
1: DISPLAY) 
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C ASSIGN SEGMENT LABELS 


NOPLB =■= 4 

LABEL - 'M [BLC ] AIN PROJECT' 

KEY = ' ' 

CALL LEZPLB (NOPLB .LABEL , KEY) 

CALL LEZPLB ( l , 'S [ BLC ]ECOND PROfECT',' ') 

CALL LEZPLB ( 6 , '0 [ BLC ]THERS' , ' ') 

CALL LEZPLB ( 2 , 'S [ BLC ] UPERVISE WORKERS',' ') 
CALL LEZPLB ( 3 , 'M [ BLC ] EET WITH SUPERVISOR',' ') 
CALL LEZPLB ( 5 , 'A [ BLC JNSWER QUESTIONS',' ') 

CALL LEZNOT( 'DCPIEl',7. ,0. ,3,1,3) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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PROGRAM DCPIE2 




C THIS EXAMPLE DRAWS AN EXPLODED PIE CHART WITH QUANTITY, PERCENTAGE, 

C AND SEGMENT LABELS DISPLAYED. 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY \RE USED!!!) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NIMBER 
C OtMETAFILE 1: SCREEN 2: BOTH) 

C 

C LEZPIE (SEGS - DATA SET, 

C NUM - NUMBER OF DATA VALUES , 

C TITLE - TITLE OF GRAPH, 

C NEXP1 - NUMBER OF FIRST EXPLODED SEGMENT, 

C NEXP2 - NUMBER OF LAST EXPLODED SEGMENT, 

C LFORM1 - QUANTITY LABEL INDICATOR 0:D0 NOT DISPLAY I '.DISPLAY, 

C LFORM2 -PERCENTAGE LABEL INDICATOR 0:DO NOT DISPLAY L:DISPLAY) 

C 

C LEZPLB (NOPLB - SEGMENT NUMBER ASSOCIATED WITH LABEL, 

C LABEL - SEGMENT LABELS, 

C KEY - KEY ENTRY LABEL FOR HIS SEGMENT) 

C 

C LEZSHW 
C 

C LEZTRM 


C DATA SECTION 

REAL SEGS(6) 

CHARACTER*80 TITLE, KENTRY, LABEL, KEY 
DATA SEGS /O. 5, 1.2, 1.0, 3.2, 1.6, 1.5/ 

c INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV = 1 

CALL LEZINI (IDEV) 

C SET UP PIE GRAPH AND LABELING 

TITLE = 'D[BLC]AILY ACTIVITIES 

NUM = 6 

NEXP1 = 2 

NEXP2 = 3 

LF0RM1 = 1 

L FORM 2 =1 

CALL LEZPIE (SEGS, NUM , TITLE, NIXPl ,NEXP2,LF0RMl ,LF0RM2) 
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C ASSIGN SEGEMENT LABELS — 


NOPLB = 4 

LABEL = 'M [BLCJAIN PROJECT' 

KEY - ' ' 

CALL LEZPLB (NOPLB, LABEL, KEY) 

CALL LEZPLB ( 1 , 'S [BLC ] ECONO PROJECT',' ') 

CALL LEZPLB ( 6 , '0 [ BLC JTHERS' , ' ') 

CALL LEZPLB ( 2 , 'S [ BLC ] UPERVISE WORKERS',' ') 
CALL LEZPLB ( 3 , 'M [ BLC] EET WITH SUPERVISOR',' ') 
CALL LEZPLB ( 5 , 'A [BLC ] NSWER QUESTIONS',' V ) 

CALL LEZNOT('DCPIE2',7. ,0. ,3, 1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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0? PGQti QUALITY 


Present responsibilities 

\ \ ^ Second project 
^ ZZ J Supervise workers 

Meet with supervisor 
Main project 




EZZZ3 


1.0 

u.i% 



1.6 

17.8? 


Daily activities 


DCPIE3 


o n o 


PROGRAM DCPIE3 




C 

C THIS EXAMPLE DRAWS AN PIE CHART WITH QUANTITY AND PERCENTAGE LABELS 
C DISPLAYED AND WITH A KEY. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZINI 
C 
C 

C LEZKEY 
C 
C 
C 


LEZPIE 
C 

c 
c 
c 
c 
c 
c 

C LEZPLB 
C 
C 
C 

C LEZSHW 
C 

C LEZTRM 
C 

C 

C DATA SECTION- 

REAL SEGS(6) 

CHARACTER*80 TITLE, KENTRY, LABEL, KEY 
DATA SEGS/0.5, 1.2, 1.0, 3.2, 1.6, 1.5/ 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV = 1 

CALL LKZINt ([DEV) 

C SET UP PIE GRAPH AND LABELING 

TITLE = 'D [ BLC ] AILY ACTIVITIES' 


(idev - Di -3000 Logical device number 

0:METAFILE 1: SCREEN 2:BOTH) 

(TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE PAGE, 

YPOS - Y POSITION ON THE PAGE, 

KENTRY - FIRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE llPPEft RIGHT CORNER 

(SEGS - DATA SET, 

NUM - NUMBER OF DATA VALUES, 

TITLE - TITLE OF GRAPH, 

NEXPI - NUMBER OF FIRST EXPLODED SEGMENT, 

NEXP2 - NUMBER OF LAST EXPLODED SEGMENT, 

LFORM1 - QUANTITY LABEL INDICATOR 0:D0 NOT DISPLAY 1: DISPLAY, 
LFORM2 -PERCENTAGE LABEL INDICATOR 0:DO NOT DISPLAY 1: DISPLAY) 

(NOPLB - SEGMENT NUMBER ASSOCIATED WITH LABEL, 

LABEL - SEGMENT LABELS, 

KEY - KEY ENTRY LABEL FOR THIS SEGMENT) 
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NUM = 6 
NEXP1 - 0 
NEXP2 = 0 
LF0RM1 = 1 
LFORM2 = 1 

CALL LEZPIE (SEGS ,NUM , TITLE, NEXPL , NEXP2 , LFORM1 , L FORM 2) 
C CREATE A KEY 

TITLE = 'P [ BLC ] RESENT RESPONSIBILITIES' 

XPOS * 3.3 
YPOS =>7.0 

KENTRY = 'S [ BLC ] ECOND PROJEKT' 

CALL LEZKEY (TITLE , XPOS , YPOS .KTNTRY) 

C MAKE KEY ENTRIES 

NOPLB = 4 
LABEL => ' ' 

KEY => 'M[ BLC JAIN PROJECT' 

CALL LEZPLB (NOPLB, LABEL, KEY) 

CALL LEZPLB (!,' ', 'S [ BLC ] ECOND PROJECT') 

CALL LEZPLB (6,' ', 'O(BLCJTHERS') 

CALL LEZPLB (2,' ', 'S [ BLC ] UPERV ISE WORKERS') 

CALL LEZPLB (3,' ' , 'M [ BLC ]EET WITH SUPERVISOR') 

CALL LEZPLB (5,' ' , 'A[BLC]NSWER QUESTIONS') 

CALL LEZNOT('DCPIE3',7. ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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PROGRAM CGBAR1 


C- 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 


THIS EXAMPLE DRAWS TWO BAR GRAPHS ON ONE PAGE 

STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZAXN ( IHV - AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK MLUE, 

NTMINR - NUMBER OF MINOR TIC< MARKS PER INCREMENT) 


LEZBAR (INDARY 
DEPARY 
NVALS - 
TITLE - 
IAXLBL 
DAXLBL 
INDMIN 
INDMAX 
DEPMIN 
DEPMAX 
INDHV - 
IBRAPP 


- INDEPENDENT DATA SET, 

- DEPENDENT DATA SET, 

NUMBER OF DATA VALUES, 

TITLE OF GRAPH, 

■ INDEPENDENT AXIS LABEL, 

■ DEPENDENT AXIS LABEL, 

- INDEPENDENT DATA MINIMUM, 

■ INDEPENDENT DATA MAXIMUM, 

- DEPENDENT DATA MINIMUM, 

- DEPENDENT DATA MAXIMUM, 

INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

- APPEARANCE INDICATOR 0: UNFILLED 1: FILLED) 


LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
Q:METAFILE 1: SCREEN I: BOTH) 

LEZNOT (STRING - NOTE,^ ^ ^ ^ mFICATI08 po IN T ON THE P.GE, 

YPOS - Y POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 
IHJST - HORIZONTAL JUSTIFICATION 1:LEFT 2: CENTER 3 ‘.RIGHT, 
IVJST - VERTICAL JUSTIFICATION 1: BOTTOM 2:CENTER 3:T0P, 
IANG - ANGLE OF ROTATION ABOUT THE JUSTIFICATION POINT) 
ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 
FROM THE HORIZONTAL AXIS. 


C 

C LEZOPT ( 10 PT - OPTION NUMBER, 

C IVALS - OPTION VALUE (S ) ) 

C 

C LEZSHW 
C 

C LEZSIZ ( XSIZE - WIDTH OF CHARACTER!., 

C YSIZE - HEIGHT OF CHARACTERS) 

C 

C LEZTRM 
C 
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C DATA SECTION- 


REAL INIMAX, INDMIN 

REAL TEMP(IO), RRESl(lO), PRES2(10) 

CHARACTERS TITLE , IAXLBL, DAXLBL, STRING 


UA1A im P / 104 . ,108. 


t DAIAPBESl ^?;|^ 5 ' 533 - 95 ’ 570 - 5 ”- 3 . 4 ’ 

DATA PRES2 /770. 01, 720. 15,760.33,804.45,783.28,742.03 764 99 
+ 808.03,793.68,736.29/ ’ ***’ 


C —INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 


IDEV =* 2 

CALL LEZINI (IDEV) 


C SET UP BAR GRAPH 


NVALS ■ 

TITLE = 

IAXLBL 
DAXLBL 
INDMIN 
INDMAX 
DEPMIN 
DEPMAX 
INDHV = 1 
IBRAPP * 1 

CALL LEZBAR(TEMP,PRES1,NVALS,TITLE, IAXLBL, DAXLBL, INDMIN, INDMAX 
+ DE PMIN, DEPMAX, INDHV, IBRAPP) * 

C CREATE A NUMERIC AXIS 


T[BLC]EMPERATURE, [ BSUP JO [ESUP J [ELC1C' 
'P[BLC]RESSURE AT FAILURE, PSI' 

100 . 

160. 

450. 

600. 


IHV-2 

NDEC=-3 

TSTART-450.0 

TINCR=*50. 

TEND-600.0 

NTMINR=4 

CALL LEZAXN(IHV,NDEC,TSTART,TINCR,TEND,NTMINR) 


C SET UP OPTIONS 


C— ROTATE HORIZONTAL TICK MARK LABELS. 

CALL LEZOPT ( 'HTLABR' ,45) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' , 2 . 20) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , . 75) 

C CHANGE TICK MARK POSITIONING ON VERTICAL AXIS* 
CALL LEZOPT ( 'VTICPOS ' , 2) , 

C SET PEAG TO NOT CLEAR SCREEN AFTER LEZSHW. 


OUTSIDE DATA SPACE. 
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CALL LEZOPT ( 'CLEAR' FALSE . ) 

C SET FLAG TO NOT PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' FALSE . ) 

C SET FLAG TO DRAW RIGHT S[DE AXl .. 

CALL LEZOPT ( 'RTAXIS' , .TRUE. ) 

C TITLE FOR FIRST GRAPH 

STRING = 'A[BLC]LLOY TYPE [ELC] I' 

XPOS =4.0 
YPOS =2.8 
IHJST = 2 
IVJST = 2 
IANG = 0 

CALL LEZNOT(STRING, XPOS, YPOS, HJST, IVJST, IANG) 

CALL LEZN0T('CGBAR1',7. ,0. ,3, ,0) 

C SHOW FIRST GRAPH 

CALL LEZSHW 

C SET UP SECOND BAR GRAPH 

NVALS = 10 
TITLE = ' ' 

IAXLBL = 'T [ 3LC ] EMPERATURE , [ >SUP]0[ESUP] [ELCJC' 

DAXLBL = 'P[BLC]RESSURE AT FA LURE, PSI' 

NVALS = 10 
INDMIN = 100. 

INDMAX = 160. 

DEPMIN = 700. 

DEPMAX = 850. 

INDHV = 1 
IBRAPP = 1 

CALL LEZBAR(TEMP , PRES2 , NVALS , TITLE , IAXLBL , DAXLBL .INDMIN , INDMAX , 
+ DEPMIN, DEPMAX, INDHV, IBRAPP) 

C CREATE A NUMERIC AXIS 

IHV=2 
NDEC=-3 
TSTART=700. 0 
TINCR=50 . 

TEND=850. 0 
NTMINR=4 

CALL LEZAXN( IHV , NDEC , TSTART ,T NCR, TEND, NTMINR) 

C SET OPTIONS FOR SECOND GRAPH 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 4 . 0) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' ,2.20) 

C SET FLAG TO PAUSE AFTER LEZSHW. 
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CALL LEZOPT ( 'PAUSE' , .TRUE. ) 


C TITLE FOR SECOND CHART 

STRING = 'A[BLC]LLOY TYPE [ELC]II' 

XPOS - 4.0 
YPOS =6.0 
IHJST = 2 
IVJST = 2 
IANG = 0 

CALL LEZNOT (STRING , XPOS , YPOS , IHJST , IVJST, IANG) 

c CHANGE CHARACTER SIZE OF TEXT FOR NOTE 

XSIZE =0.2 
YSIZE = 0.35 

CALL LEZSLZ (XSIZE , YSIZE ) 

C PUT NOTE ON PAGE 

STRING = 'L [ BLC ]OW PRESSURE FATIGUE TESTING' 

XPOS =3.9 
YPOS =6.5 
IHJST = 2 
IVJST = 2 
IANG = 0 

CALL LEZNOT (STRING , XPOS , YPOS , IHJST, IVJST , IANG) 

c CHANGE CHARACTER SIZE OF TEXT BACK TO DEFAULT SIZE 

XSIZE = 0.0 
YSIZE = 0.0 

CALL LEZSIZ (XSIZE , YSIZE) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 


CALL LEZTRM 

STOP 

END 
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nooooooooooooooooooooooooooooooooo 


PROGRAM CGBAR2 




c 

C THIS EXAMPLE DRAWS TWO BAR GRAPHS ON ONE PAGE 
C ONE GRAPH HAS A KEY 
C 

C STRUCTURE OP COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZAXN (IHV - AXIS INDICATOR 1: HORIZONTAL 2:VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

LEZAXS (IHV - AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

IEXP - POWER OF TEN TO BE USED, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 
1: ABSOLUTE 2: ADDITIVE, 

IDTAPP - APPEARANCE INDICATOR 0: UNFILLED 1: FILLED, 

KENTRY - KEY ENTRY LABEL FOR THIS DATA SET) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
OrMETAFILE 1: SCREEN 2:B0TH) 

LEZKEY (TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE PAGE, 

YPOS - Y POSITION ON THE PAGE, 

KENTRY - FIRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

LEZLBR (VALUES - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

TITLE - TITLE OF GRAPH, 

C LABELS - TICK MARK LABELS, 

C IAXLBL - INDEPENDENT AXIS LABEL, 

C DAXLBL - DEPENDENT AXIS LABEL, 

C VALMIN - DEPENDENT DATA MINIMUM, 

C VALMAX - DEPENDENT DATA MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C IBRAPP - APPEARANCE INDICATOR 0: UNFILLED L: FILLED) 

C 

C LEZNOT (STRING - NOTE, 

C XPOS - X POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 
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YPOS - Y POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 
IHJST - HORIZONTAL JUSTIFICATION 1: LEFT 2: CENTER 3:RIGHt[ 
IVJST - VERTICAL JUSTIFICATION I : BOTTOM 2: CENTER 3:TOP, 
IANG - ANGLE OF ROTATION ABOUT THE JUSTIFICATION POINT) 
ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 
FROM THE HORIZONTAL AXIS. 

LEZOPT ( 10 PT - OPTION NIMBER, 

IVALS - OPTION VALUE (S) ) 

LEZSHW 

LEZSIZ (XSIZE - WIDTH OF CHARACTERS 

YSIZE - HEIGHT OF CHARACTERS) 

LEZTRM 


C DATA SECTION 


REAL CPU( 12) , AVGMEM( 12) , MAXMEN (12) 

CHARACTER*256 TITLE, KENTRY, IA> LBL, STRING, DAXLBL, LABELS 


DATA CPU /87. ,84.9,82.5,87. ,90.1 ,92. ,92. ,85., 92. ,89.5,91.7,91.6/ 
DATA AVGMEM /5. ,4. 5,6. ,8. , 10. 3, 1 2. 1 , 12. ,13. , 14. , 14.5, 15. 2 , 16. 1/ 
DATA MAXMEM /8 . 5, 12. 2, 10. , 16. 4, 1 7 . ,22. 3 , 20. ,23. 7 ,26. ,28 . 1 , 

+ 24.5,29.2/ 


DO 1 1=1,12 

MAXMEM ( I ) MAXMEM ( I )*( 1 0 . **6 ) 

AVGMEM ( I ) =AVGMEM ( I ) * ( 1 0 . * *6 ) 
1 CONTINUE 


C INITILIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV = 1 

CALL LEZINI (IDEV) 

C SET UP LABELED BAR GRAPH— 


NVALS = 12 
TITLE = ' ' 

LABELS = '$J[BLC]AN.$F[BLC]EB.$M 
+UN . $ J[BLC ] UL. $A [ BLC ] UG. $S [ BLC ] EP 
IAXLBL = ' ' 

DAXLBL = 'P [ BLC | ERCENT OF TOTAL 
VALMIN = 0. 

VALMAX = 100. 

INDHV = 1 


BLC ] AR . $A [ BLC ] PR . $M [ BLC ] AY$ J [ BLC ] 
$0 [ BLC ]CT . $N [ BLC ]0V. $D [ BLC ] EC . $ ' 

BUC ] CPU[ BLC ] SECONDS' 


IBRAPP = 1 

CALL LEZLBR (CPU, NVALS , TITLE .LABELS , IAXLBL, DAXLBL, VALM IN , VALMAX 
+ INDHV, IBRAPP) 
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C CREATE A NUMERIC AXIS— 


IHV=2 
NDEC=-3 
TSTART=0 . 0 
TINCR=2 5 . 0 
TEND=IOO. 0 
NTMINR=4 

CALL LEZAXN( IHV , NDEC .TSTART , TINCR .TEND, N1MINR) 

C SET UP OPTIONS 

C CHANGE LENGTH OF HORIZONTAL AXIS. 

CALL LEZOPT ( 'HAXLEN' ,3.5) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' ,2.20) 

C SET FLAG TO DRAW RIGHT SIDE AXIS. 

CALL LEZOPT ( 'RTAXIS ' , -TRUE . ) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 3 . 8) 

C SET FLAG TO NOT CLEAR SCREEN AFTER LEZSHW. 

CALL LEZOPT ( 'CLEAR' ,. FALSE . ) 

C SET FLAG TO NOT PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' FALSE . ) 

C CHANGE TICK MARK POSITIONING ON VERTICAL AXIS; OUTSIDE DATA SPACE. 

CALL LEZOPT ( 'VTICPOS' , 2) 

C ROTATE TICK MARK LABELS ON HORIZONTAL AXIS. 

CALL LEZOPT ( 'HTLABR' ,45) 

CALL LEZNOT('CGBAR2' ,7. ,0. ,3,1,0) 

C SHOW FIRST CHART 

CALL LEZSHW 

C SET UP SECOND LABELED BAR CHART 

NVALS =12 
TITLE = ' ' 

LABELS = '$ JAN$FEB$MAR$APR$MAY$ JUN$ JUL$AUG$SEP$OCT$NOV$DEC$ ' 
IAXLBL = ' ' 

DAXLBL = 'W [ BLC ]ORDS OF STORAGE' 

VALMIN = 0. 

VALMAX = 35 . *( 10. **6 ) 

INDHV = 1 
IBRAPP = 1 

CALL LEZLBR (MAXMEM , NVALS .TITLE , LABELS , IAXLBL, DAXLBL, VALM IN, 

+ VALMAX, INDHV, IBRAPP) 


C SET UP KEY 

TITLE = ' ' 
XPOS =4.0 
YPOS =3.0 
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KENTRY = "M [ BLC ] AXIMUM ' 

CALL LEZKEY (TITLE , XPOS .YPOS .KLNTRY) 

C CREATE AN AXIS WITH SCIENTIFIC NOTATION 


IHV=2 

TSTART=0. 0 
TINCR=5.*(10.**6) 

TEND=35.0*(10.**6) 

IEXP=6 

NT>1INR=0 

CALL LEZAXS ( IHV , TSTART , TINCR .TEND, IEXP , NTMINR) 

C ADD ADDITIONAL DATA SET 

NVALS = 12 
IDTREL = 1 
IDTAPP = 1 

KENTRY = 'A [ BLC ] VERAGE ' 

CALL LEZDAT (AVGMEM , NVALS , IDTRLL, IDTAPP, KENTRY) 

C SET UP OPTIONS FOR SECOND GRAPH 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , . 7 5 ) 

C SET FLAG TO PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' , .TRUE . ) 

C CHANGE CHARACTER SIZE OF TEXT FOt NOTE 

XSIZE = 0.25 

YSIZE = 0.25/. 8 

CALL LEZSIZ (XSIZE , YSIZE ) 

C PUT NOTE ON PAGE 

STRING = 'C [ BLC JOMPUTER [ELCjQ'B [ BLC ] UTILIZATION 1972 

XPOS = 3.9 

YPOS =6.8 

IHJST = 2 

IVJST = 2 

IANG = 0 

CALL LEZNOT (STRING, XPOS , YPOS , 1 HJST, IVJST, IANG) 

C CHANGE CHARACTER SIZE OF TEXT BACK TO DEFAULT SIZE 

XSIZE =0.0 
YSIZE =0.0 

CALL LEZSIZ (XSIZE .YSIZE ) 

C SHOW GRAPH 

CALL LEZSHW 
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C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 


CALL LEZTRM 

STOP 

END 
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Number of test trials 
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PROGRAM CGBAR3 




c 

C THIS EXAMPLE DRAWS TWO BAR GRAPHS ON ONE PAGE WITH ONE LEGEND 


C 

C 


STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 


EXAMPLE 


LEZAXN ( IHV - AXIS INDICATOR I : HORIZONTAL 2:VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 
TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 


LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 
1 : ABSOLUTE 2:ADDITIVE, 

IDTAPP - APPEARANCE INDICATOR 0: UNFILLED I: FILLED, 
KENTRY - KEY ENTRY LABEL FOR THIS DATA SET) 


LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0:METAFILE 1: SCREEN 2: BOTH) 


LEZKEY (TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE PAGE, 

YPOS - Y POSITION ON THE PAGE, 

KENTRY - FIRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

LEZLBR (VALUES - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

TITLE - TITLE OF GRAPH, 

LABELS - TICK MARK LABELS, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

VALMIN - DEPENDENT DATA MINIMUM, 

VALMAX - DEPENDENT DATA MAXIMUM, 

INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 
IBRAPP - APPEARANCE INDICATOR 0: UNFILLED 1: FILLED) 

C LEZNOT (STRING - NOTE, 

C XPOS - X POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 

C YPOS - Y POSITION OF THE JUSTIFICATION POINT ON THE PAGE,’ 

C IHJST - HORIZONTAL JUSTIFICATION 1 : LEFT 2: CENTER 3:RIGHt’ 

C IVJST - VERTICAL JUSTIFICATION 1:B0TT0M 2: CENTER 3:T0P, 

C IANG - ANGLE OF ROTATION ABOUT THE JUSTIFICATION POINT) 

C ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 

C FROM THE HORIZONTAL AXIS. 

C 

C LEZOPT ( 10 PT - OPTION NUMBER, 


B - 70 


c 

c 

c 

c 

c 

c 

c 

c 

c 

o 


IVALS - OPTION VALUE(S)) 


LEZSHW 


LEZSIZ (XSIZE 
YSIZE 

LEZTRM 


WIDTH OF CHARACTERS, 
HEIGHT OF CHARACTERS) 


ORIGINAL PAGE IS 
OF POOR QUALITY 


C DATA SECTION- 


REAL JOBl(12) ,JOB2(12) ,JOB4(12) ,J0B3(12) 

REAL JO B1A( 1 2 ) , JOB2A( 12) , JOB3A(12 ) , JOB4A( 12) 


CHARACTER*80 KENTRY, TITLE, IAXLEL, DAXLBL, STRING 
CHARACTER*256 LABELS 


DATA JOB 1 /2. ,2. ,2. ,1.9,2. ,1.95,2 • ,2. ,2.07,1.95,1.9,1.8/ 

DATA JOB 2 /. 7 5, 1.1,1. ,1.05,1.05,1 .1,1. 1,1- 1,1* -2, 1.1, 1-1/ 
DATA J0B4 /6. 4, 6. 5, 5. 35, 5. 7, 6. 55 6. 7, 6. 5, 6. 7, 6. 6 , 6. 8 , 6. 45, 6. / 

DATA JOB 3 /l. 3, 1.4, 1.25, 1.55, 1.4, 1.3, 1.2, 1.3, 1.25, 1.3, 1.2,1. / 

DATA J0B1A / 21 . ,20.5,20.5,20.5,20.5,20.5,20.5,20.5,20.5,20.5, 

+ 20.5,20.5/ 

DATA J0B2A /2. 25, 2 . 49, 2 . 49, 2 . 5 , 2 ■ 51 , 2. 51 , 2. 55,2 . 55 ,2 . 6 ,2 . 5 , 

DATA J0B3A /2. 2, 2. 2, 2. 3, 2. 3, 2. 4, 1.45, 2. 2, 2. 3, 2. 3, 2. 3, 2. 2 5, 2. 4/ 
DATA J0B4A /7 . 65 , 7 . 6 , 6 . 2 , 7 . 1 , 7 . 6 , 7 . 8 , 7 . 4, 7 . 7 ,7 . 6, 7 . 9 , 7 . 4 , .5 / 


DO 1 1-1,12 

J0B1(I)=J0B1 (I)*100. 

J0B2(I )=J0B2( I ) *100 . 

JOB3(I)=JOB3(I)*100. 

JO B4 ( I )=J0 B4 ( I ) *100 . 

J0B2A( I ) =J0 B2A( 1 ) * 1 0 . 
J0B3A(I)=J0B3A(I)*10. 

JO B4A( I )=J0B4A( I ) *10 . 

1 CONTINUE 

c INITIALIZE COMMON GRAPHICS LIBRAR' AND DI-3000 


IDEV = 2 

CALL LEZINI (IDEV) 


C SET UP LABELED BAR GRAPH 


NVALS =12 

LABELS = '$J[BLC]AN.$F[BLC)EB.$M[BLC]AR.$A[BLC]PR.$M[BLC]AY$J[BLC] 

+UN . $ J[ BLC ] UL . $A l BLC ] UG . $S [BLC ] E J . $0 [ BLC ] CT . $N [ BLC ]0 V . $D [ BLC ]EC . $ 
1AXLBL = ' ' 

DAXLBL = 'N[ BLC] UMBER OF TEST TRIALS' 
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VALM IN = 0. 

VALM AX = 2000. 

INDHV = 1 
L8RAPP = 1 

CALL LEZLBR ( JO B 1 , NVALS .TITLE , LABELS t IAXLBL , DAXLBL , VALM I N , 

+ VALM AX, INDHV , LBRAPP) 

C CREATE A NUMERIC AXIS 

IHV-2 
NDEO-3 
T ST ART-0.0 
TINCR-200. 0 
TEND*2000 . 0 
NTMINR-1 

CALL LEZAXN( IHV ,NDEC .TSTART ,TINCR,TEND,NTMINR) 

C INPUT NEW DATA SETS 

NVALS =12 
IDTREL = 2 
IDT AFP = 1 
KENTRY = ' ' 

CALL LEZDAT ( J0B2 , NVALS , IDTREL, IDTAPP, KENTRY) 

CALL LEZDAT ( JO B3 , 12 , 2 , 1 , ' ') 

CALL LEZDAT ( J0B4 , 1 2 , 2 , 1 , ' ') 

C SET UP OPTIONS FOR FIRST GRAPH 

C ROTATE TICK MARK LABELS ON HORIZONTAL AXIS. 

CALL LEZOPT ( 'HTLABR' ,45) 

C SET FLAG TO DRAW RIGHT SIDE VERTICAL AXIS. 

CALL LEZOPT ( 'RTAXIS ' , .TRUE . ) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' ,2.20) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 4 . 0) 

C SET FLAG TO NOT CLEAR SCREEN AFTER LEZSHW. 

CALL LEZOPT ( 'CLEAR' ,. FALSE . ) 

C SET FLAG TO NOT PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' ,. FALSE . ) 

C CHANGE TICK MARK POSITIONING ON VERTICAL AXIS; OUTSIDE DATA SPACE 
CALL LEZOPT ( 'VTICPOS ' , 2) 

C TITLE OF FIRST CHART 

STRING = 'T[ BLCJRIAL RUNS' 

XPOS =3.9 
YPOS =6.20 
IHJST = 2 
IVJST = 3 
IANG = 0 

CALL LEZNOT (STRING , XPOS , YPOS , IHJST, IVJST, IANG) 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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CALL LEZN0T('CGBAR3' ,7. ,0. ,3,1,0) 

C SHOW FIRST GRAPH- 

CALL LEZSHW 

C SET UP SECOND BAR GRAPH 

NVALS =12 
TITLE = ' ' 

LABELS = '$ J [ BLC ] AN . $F [ BLC ] EB . $M [ BLC ]AR. $A[ BLC ) PR . $M [ BLC ] AY$ J [ BLC J 
+UN . $ J [ BLC ] UL . $A [ BLC ] UG . $S [ BLC ] EP ■ $0 [ BLC ] CT . $N [ BLC JO V . $D [ BLC ] EC . $ ' 
IAXLBL = ' ' 

DAXLBL = 'N[ BLC] UMBER OF SUCCESSES' 

VALMIN = 0. 

VALMAX = 200. 

INDHV = 1 
IBRAPP = I 

CALL LEZLBR (J0B1A , NVALS .TITLE , LABELS , IAXLBL.DAXLBL, VALMIN , 

+ VALMAX, INDHV, IBRAPP) 

C CREATE A NUMERIC AXIS 


IHV=2 
NDEC=-2 
TSTART=0 . 0 
TINCR=20. 0 
TEND=200 . 0 
NTMINR=L 

CALL LEZAXN(IHV,NDEC .TSTART ,TINC l .TEND, NTMINR) 

C CREATE KEY 

TITLE = ' ' 

XPOS =3.4 
YPOS =6.5 

KENTRY = ' J [ BLC ] 0 B 1' 

CALL LEZKEY (TITLE , XPOS , YPOS .KENTRY) 

C INPUT NEW DATA SETS 

NVALS =12 
IDTREL = 2 
IDTAPP = I 

KENTRY = ' J[BLC ]0B 2' 

CALL LEZDAT ( JO B2A , NVALS , IDTREL IDTAPP , KENTRY) 
CALL LEZDAT (J0B3A, 12,2, L, 'J[BLC JOB 3') 

CALL LEZDAT ( J0B4A , 1 2 , 2 , 1 , ' J [ BL< ]0B 4') 

C SET OPTIONS FOR SECOND GRAPH 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , . 7 5) 

C SET FLAG TO PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' , .TRUE . ) 
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C TITLE OF SECOND CHART- 


STRING = 'S [ BLC ] UCCESSFUL TRIAL RUNS' 

XPOS = 3.9 
YPOS = 2.95 
IHJST = 2 
IVJST = 3 
IANG = 0 

CALL LEZNOT ( STRING, XPOS , YPOS , IHJST, IVJST, IANG) 

C CHANGE CHARACTER SIZE OF TEXT FOR NOTE 

XSIZE » 0.25 

YSIZE = 0.25/. 8 

CALL LEZSIZ (XSIZE , YSIZE ) 

C PUT NOTE ON PAGE 

STRING = 'P[BLC]ROGRESS OF TEST CASES' 

XPOS = 3.9 
YPOS =6.7 
IHJST = 2 
IVJST = 2 
IANG = 0 

CALL LEZNOT (STRING , XPOS , YPOS , IHJST, IVJST, IANG) 

C CHANGE CHARACTER SIZE OF TEXT BACK TO DEFAULT SIZE 

XSIZE = 0.0 
YSIZE » 0.0 

CALL LEZSIZ (XSIZE , YSIZE ) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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Aerodynamic properties 



Vortex /low about a 60° delta wing with a=20° 


CGLIN1 
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PROGRAM CGLIN1 




C 

C THIS EXAMPLE DRAWS A MULTI-LINE CHART WITH AN AUTOSCALED HORIZONTAL 
C AXIS. THE COMMENTS IN THIS PROGRAM EMPHASIZE AUTOSCALED AXES. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZAXN (IHV - AXIS INDICATOR 1: HORIZONTAL 2:VERTICAL, 

C NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

C TSTART - FIRST MAJOR TICK MARK VALUE, 

C TINCR - MAJOR TICK MARK INCREMENT, 

C TEND - LAST MAJOR TICK MARK VALUE, 

C NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

C 

C LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA VALUES, 

C DTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 

C 1: ABSOLUTE 2: ADDITIVE, 

C DATAPP - APPEARANCE INDICATOR 

C FOR BARS: 0: UNFILLED 1: FILLED 

C FOR LINES: 1 : LINES 2: MARKERS 3: BOTH, 

C KENTRY - KEY ENTRY LABEL FOR THIS DATA SET) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C 0:METAFILE 1: SCREEN 2: BOTH) 

C 

C LEZKEY (TITLE - TITLE OF CHART, 

C XPOS - X POSITION ON THE PAGE, 

C YPOS - Y POSITION ON THE PAGE, 

C KENTRY - FIRST KEY ENTRY LABEL) 

C KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

C 


C LEZLIN (INDARY - INDEPENDENT DATA SET, 

C DEPARY - DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA PAIRS, 

C TITLE - TITLE OF CHART, 

C IAXLBL - INDEPENDENT AXIS LABEL, 

C DAXLBL - DEPENDENT AXIS LABEL, 

C INDMIN - INDEPENDENT AXIS MINIMUM, 

C INDMAX - INDEPENDENT AXIS MAXIMUM, 

C DEPMIN - DEPENDENT AXIS MINIMUM, 

C DEPMAX - DEPENDENT AXIS MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C LINAPP - APPEARANCE INDICATOR 1:LINE 2:MARKER 3: BOTH) 

C 

C LEZSHW 
C 

C LEZTRM 
C 
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C VARIABLE DECLARATION AND INITIALISATION 

CHARACTER TITLE *256 , I AXLBL*80 ,DAXLBL*80 , KENTRY*80 
REAL SPAN(25) ,CLLFT(25) ,CDRAG(2>) ,CMOMNT(25) , INDMIN, INDMAX 
DATA CLIFT/. 4748, .6962, .8165, .9 02, .9631, 1.005, 1.063, 1 . 112, 
+1.146,1.170, 1.187, 1.199,1.207,1 210,1.209,1.203,1.193,1.180, 
+1.163,1.142,1.117,1.094,1.076,1 028,. 5721/ 

DATA CDRAG/. 1674, .2426, . 2827 ,. 3 .37 ,. 3307 , .3439, .3629, . 3789, 

+.3897, .3971, .4021, .4056, .4077,. *084, .4076,. 4054,. 4020, .3975, 
+.3919, .3852, .3776, . 3705, . 3652, . 1519,-3038/ 

DATA CMOMNT/-. 3639, -.4936, -.533 ',-.5454, -.5263, -.4971, -.4704, 
+-.4348, -.3902, -.3404, -.2878, -.2 136, -.1790, -.1246, -.07 136, 

+-. 02016, .02818,-07293, . 1133, . 14 14, . 1774, .2022, .2261, .2264, -.06216/ 
RI=- 1 . 0 
DO 1 1=1,25 
RI=RI+.04 

1 SPAN ( I ) =R I 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV=0 

CALL LEZINI ( IDEV ) 

C SET UP A LINE PLOT 

C ESTABLISH CHART AS A LINE CHART, AND ENTER FIRST DATA SET. 

C *** NOTE: AUTOSCALED AXIS IS OBTAINED BY SETTING 'INDMIN' EQUAL 

C TO 'INDMAX'. 


NVALS=25 

TITLE* 'V [ BLC jORTEX FLOW ABOUT A 60[BSUP]0 [ESUP] DELTA WING WITH [F 
+ONT=9]A[FONT]=20[BSUP]0' 

IAXLBL='2 [ BLC ] Y/B ' 

DAXLBL='A[BLC JERODYNAMIC PROPERTIES' 

INDMIN=0. 

INDMAX=0. 

DEPMIN=-2 . 0 
DEPM AX=2 . 0 
INDHV= 1 
LINAPP=2 

CALL LEZLIN(SPAN .CLIFT , NVALS ,TI TLE , IAXLBL, DAXLBL, INDM IN , INDMAX , 
+DEPMIN .DEPMAX, INDHV , LI NAP P) 

C CREATE A KEY 


TITLE*' ' 

XPOS=6.25 
YP0S=6 .35 

KENTRY* 'C [ BSUB ] [BLC] [F0NT=11]L' 

CALL LEZKE Y (TITLE, XPOS.YPOS, KENTRY) 

C CREATE A NUMERIC AXIS 

IHV=2 
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NDEC— 1 
T START— 2 . 0 
TINCR-l.O 
TEND-2.0 
NTMINR-4 

CALL LEZAXN (IHV , NDEC , TSTART , TINCR .TEND , NTM INR ) 

C INPUT ADDITIONAL DATA SETS 

NVALS-25 

IDTREL-1 

LINAPP-2 

KENTRY-'C [BSUB] [BLC]D' 

CALL LEZDAT (C DRAG . NVALS , IDTREL , LINAPP , KENTRY ) 

NVALS-25 

IDTREL-1 

LINAPP-2 

KENTRY-'C [ BSUB J [ BLC ]M ' 

CALL LEZDAT (CMOMNT , NVALS , I DTREL, LINAPP , KENTRY ) 

CALL LEZNOT('CGLINl',7. ,0. ,3,1,0) 

C SHOW CHART 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 


B - 78 



CRUs 


Xyzabc branch 
Resource utilization 
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Fiscal yea 


CGLIN2 
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PROGRAM CGLIN2 


C 

C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS EXAMPLE DRAWS A MULTI-LINE GRAPH WITH A KEY 

STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER 
NOT NECESSARILY IN THE ORDER THEY ARE USED!!!)* 

LEZAXN ( IHV - AXIS INDICATOR 1: HORIZONTAL 2:VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS j 
TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 


LEZAXS 


(IHV AXIS INDICATOR I : HORIZONTAL 2: VERTICAL 
TSTART - FIRST MAJOR TICK MARK VALUE t 
TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

I EXP - POWER OF 10 TO BE USED, 

NUMBER OF MINOR TICK MARKS PER INCREMENT) 


NTMINR 


LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 
1: ABSOLUTE 2: ADDITIVE, 

IDTAPP - APPEARANCE INDICATOR 

FOR BARS: 0: UNFILLED 1: FILLED 
FOR LINES: 1: LINES 2: MARKERS 3: BOTH, 

KEY ENTRY LABEL FOR THIS DATA SET) 


KENTRY - 


LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0:METAFILE 1: SCREEN 2:BOTH) 

LEZKEY (TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE PAGE, 

YPOS - Y POSITION ON THE PAGE, 

KENTRY - FIRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 


LEZLIN (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA PAIRS, 

TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS MAXIMUM \ 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAXIMUM, 

INDHV - INDEPENDENT AXIS INDICATOR 1 : HORIZONTAL 2:VERTICAL 
LINAPP - APPEARANCE INDICATOR I: LINE 2:MARKER 3:BOTH) 
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c 

C LEZNOT (STRING - NOTE, 

C XPOS - X POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 

C YPOS - Y POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 

C IHJST - HORIZONTAL JUSTIFICATION 1 : LEFT 2: CENTER 3: RIGHT , 

C IVJST - VERTICAL JUSTIFICATION l: BOTTOM 2: CENTER 3:TOP, 

C IANG - ANGLE OF ROTATION ABOUT THE JUSTIFICATION POINT) 

C ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 

C FROM THE HORIZONTAL AXIS. 

C 

C LEZOPT ( 10 PT - OPTION NUMBER, 

C IVALS - OPTION VALUE(S) ) 

C 

C LEZSHW 
C 

C LEZTRM 
C 

C 

C DATA SECTION 

CHARACTER*80 TITLE , IAXLBL, DAXLBL , KENTRY , STRING 
CHARACTER*10 OPTION 

REAL YE AR ( 1 0 ) , BATCH ( 1 0 ) , S IMUL ( 9 ) , REMOTE ( 9 ) , I AF ( 9 ) 

REAL OTHER (10) , INDMIN , INDMAX 
INTEGER LINPAT ( 5 ) 

DATA YEAR/77. , 78 . , 79 . , 80 . ,81 . , 82 . , 83 . ,84. ,85. ,86 . / 

DATA BATCH/ 10. ,13., 14., 14., 16., 15., 19., 24., 28., 30./ 

DATA SLMUL/6. ,8. ,8. ,9. ,11. ,10. ,12. ,15. ,18./ 

DATA REMOTE/4. ,5. ,6. ,6. ,8. ,7. ,1C. ,13. ,15./ 

DATA IAF/1. ,2. ,3. ,4. ,4. ,5. ,7. ,9. ,11. / 

DATA OTHER/ 1. ,1., 2. ,3. ,3. ,3. ,4. ,5. ,6. ,7./ 

DO 1 1*1,9 

BATCH (I ) “BATCH (I )*1000. 

SIMUL(I)=SIMUL(1)*1000. 

REMOTE ( I ) =REMOTE ( I ) *1000 . 

IAF ( I ) =IAF (I ) *1000 . 

OTHER( I)=OTHER ( I ) *1000 . 

1 CONTINUE 

BATCH( 10)=BATCH( 10)*1000 . 

0THER(10)=OTHER(10)*1000. 

C INITIALIZE COMMON GRAPHICS LIBRAR ' AND DI-3000 

IDEV*1 

CALL LEZINI (IQEV) 

C SET UP A LINE PLOT 

NVALS*10 
TITLE*' ' 

IAXLBL='F [BLC ] ISCAL YEAR' 
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DAXLBL='CRU [ BLC ] S ' 

INDMIN-77.0 
INDMAX-86. 0 
DEPMIN-0.0 
DEPM AX-40000.0 
INDHV-1 
LINAPP-3 

CALL LEZLIN (YEAR , BATCH .NVALS , TITLE , IAXLBL, DAXLBL , INDMIN , INDMAX, 
+ DEPMIN.DEPMAX, INDHV.LINAPP) 


C CREATE A KEY 

TITLE-'R [ BLC ] E SOURCE' 

XPOS=4 . 5 
YP0S=6.0 

KENTRY='B [ BLC ]ATCH' 

CALL LEZKEY (TITLE , XPOS , YPOS , KENTRY) 

C CREATE AN INTEGER AXIS 

IHV-1 

12—2 

NDEC-I2 

TSTART-77 . 0 

TINCR-1.0 

TEND-86. 0 

NTMINR-0 

CALL LEZAXN (IHV,NDEC ,TST ART, TI NCR, TEND, NTMINR) 

C CREATE AN AXIS WITH SCIENTIFIC NOTATION 

IHV-2 

TSTART-0 . 0 
TINCR=10000. 0 
TEND=40000. 0 
IEXP=4 
NTMINR-1 

CALL LEZAXS ( IHV .TSTART , TINCR , TEND, IEXP, NTMINR) 

C INPUT ADDITIONAL DATA SETS 

NVALS-9 

IDTREL-1 

IDTAPP-3 

KENTRY-'S [ BLC ] IMULATION' 

CALL LEZDAT ( SIMUL, NVALS , IDTREL, IDTAPP , KENTRY) 
KENTR Y='R [ BLC ] EMOTE' 

CALL LEZDAT (REMOTE, NVALS , IDTREL, IDTAPP, KENTRY) 
KENTRY- 'I [ BLC INTERACTIVE' 

CALL LEZDAT ( IAF , NVALS , I DTREL, IDTAPP , KENTRY) 
NVALS-10 


- ft? 
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KENTRY='0 [ BLC ] THER' 

CALL LEZDAT (OTHER , NVALS , IDTREl , IDTAPP, KENTRY ) 
C SET OPTION 

C CHANGE LINE PATTERNS. 

OPTION='LINPAT' 

LINPAT( 1 ) = 4 
LINPAT ( 2 )=5 
LINPAT(3)=1 
LINPAT(4)=3 
LINPAT( 5)=2 

CALL LEZOPT(OPTION, LINPAT) 

C PUT TWO LINE TITLE AT TOP OF PAGE 

STRING 3 'X[ BLC ]YZ ABC BRANCH' 

XPOS=3. 5 
YPOS=6. 7 
IHJST=2 
IVJST=2 
IANG-O 

CALL LEZNOT ( STRING, XPOS , YPOS , IHJST, IVJST, IANG) 

STRING='R [ BLC ] ESOURCE UTILIZATION' 

YPOS=6 . 5 

CALL LEZNOT ( STRING , XPOS , YPOS , IHJST, IVJST, IANG) 

C PUT NOTES BESIDE DATA SPACE 

STRING='0 [ BLC ] THER' 

XPOS»6.5 
YPOS=2 . 6 

CALL LEZNOT ( STRING, XPOS , YPOS , ItJST, IVJST, IANG) 

STRING 3 'M [ BLC ] ID-RANGE' 

YPOS=4 . 0 

CALL LEZNOT ( STRING , XPOS , YPOS , II! JST , IVJST, IANG) 

CALL LEZNOT( 'CGLIN2' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 


CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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PROGRAM CGLIN3 


THIS EXAMPLE DRAWS A MULTI-LINE GRAPH WITH A KEY 

STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZAXN ( IHV - AXIS INDICATOR 1: HORIZONTAL 2:VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCLEMENT , 

TEND - LAST MAJOR TICK MARK VALUE, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

LEZAXT (IHV - AXIS INDICATOR I : HORIZONTAL 2:VERTICAL, 

NLABS - NUMBER OF TICK MARK LABELS IN STRING, 

LABELS - TICK MARK LABELS, 

NTMAJR - NUMBER OF MAJOR TICK MARKS, 

NTMINR - NUMBER OF MINOR TICK MARK PER INCREMENT) 

LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES , 

IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 
1: ABSOLUTE 2:ADDIT[VE, 

IDTAPP - APPEARANCE INDICATOR 

FOR BARS: 0: UNFILLED 1: FILLED 

FOR LINES: 1: LINES 2: MARKERS 3: BOTH, 

KENTRY - KEY ENTRY LABEL FO I THIS DATA SET) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
OiMETAFILE 1: SCREEN 2: BOTH) 

LEZKEY (TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE PACE, 

YPOS - Y POSITION ON THE PAGE, 

KENTRY - FIRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

LEZLIN (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA PAIRS, 

TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS MAXIMUM, 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAXIMUM, 

INDHV - INDEPENDENT .AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 
C LINAPP - APPEARANCE INDICATOR 1:LINE 2:MARKER 3: BOTH) 

C 
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C LEZNOT (STRING - NOTE, 

C XPOS - X POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 

C YPOS - Y POSITION OF THE JUSTIFICATION POINT ON THE PAGE,’ 

C IHJST - HORIZONTAL JUSTIFICATION I: LEFT 2: CENTER 3: RIGHT [ 

C IVJST - VERTICAL JUSTIFICATION I: BOTTOM 2: CENTER 3: TOP, 

C IANG - ANGLE OF ROTATION ABOUT THE JUSTIFICATION POINT) 

C ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 

C FROM THE HORIZONTAL AXIS. 

C 

C LEZOPT ( IOPT - OPTION NAME, 

C IVALS - OPTION VALUE(S) ) 

C 

C LEZSHW 
C 

C LEZTRM 
C 



C DATA SECTION 

CHARACTER LABELS *2 56 .TITLE *80 , IAXLB-L*! ,DAXLBL*I ,KENTRY*80 
CHARACTER IOPT*8 , STRING*80 

REAL S ITEAF (14), CONNT ( 14) ,MOS ( 14) , INDM IN, INDMAX 
LOGICAL LVALUE 

DATA SITEAF/500. ,550. ,550. ,775. ,599. ,615. ,760. , 850. , 1000. , 1390. 
+1700. ,1720. ,1510. ,1850./ 

DATA CONNT/IOOO. ,900. ,1000. ,1150. ,850. ,890. ,1040. ,1110. 1040. 
+990. ,1090. ,1080. ,1050. ,1040./ 

DO 1 1=1,14 
RI-I 

1 MO S ( I ) =R I 

C DESIRED MINS AND MAXS FOR FINISHED GRAPH 

INDMIN=1 .0 
INDMAX=14 . 0 
DEPMIN-0.0 
DEPMAX-2000. 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 


IDEV=1 

CALL LEZINI(IDEV) 

C SET UP A LINE PLOT— 

NVALS=14 
TITLE®' ' 

IAXLBL=' ' 

DAXLBL®' ' 

INDHV=1 

LINAPP=3 

CALL LEZL IN(MOS , S ITEAF ,NVALS , TITLE , IAXLBL, DAXLBL, INDM IN, INDMAX, 
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+DEPMIN.DEPMAX.INDHV.LINAPP) 

C CREATE A KEY 

TITLE=*'R[ BLC ] ESOURCES' 

XP0S=4 . 5 
YP0S=6 . 3 

KENTRY=*'F (BLC ] LLES' 

CALL LEZKEY(TITLE , XPOS , YPOS .KENTRY) 

C CREATE A TEXT AXIS 


IHV=L 

NLABS=L4 

LABELS='$A[ BLC ]UG. $S[BLC]EP. $0 [ BLC 1CT. $N [BLC ]0V. $D [BLC ]EC . $ J [ BLC ] A 
+N . $F [ BLC ] EB . $M [ BLC ] AR . $A [ BLC ] PR . $M [ BLC ] AY$ J [ BLC ] UN . $ J [ BLC ] UL . $A [ BL 
+C ]UG . $S [BLC ]EP . $ ' 

NTMAJR=14 

NTMINR=0 

CALL LEZAXT ( IHV , NLABS , LABELS , N1MAJR , NTMINR) 

C CREATE AN INTEGER AXIS 

IHV=2 

l4=-4 

NDEC=I4 

TSTART=DEPMIN 

TINCR=200.0 

TEND=DEPMAX 

NTMINR=0 

CALL LEZAXN( IHV , NDEC .TSTART , TINCR .TEND, NTMINR) 

C INPUT AN ADDITIONAL DATA SET 

NVALS=L4 

IDTREL=I 

LINAPP=3 

KENTRY='C [BLC ]ONNECT TIME' 

CALL LEZDAT(CONNT .NVALS , IDTREL , LINAPP, KENTRY ) 


C SET OPTIONS 

C ROTATE TICK. MARK LABELS ON THE HORIZONTAL AXIS , 45 DEGREES. 

IOPT='HTLABR' 

IVAL=45 

CALL LEZOPT(IOPT.IVAL) 

C SET FLAG TO DRAW RIGHT AXIS , TRUE. 

I0PT='RTAX1S' 

LVALUE=.TRUE . 

CALL LEZ0PT(I0PT. LVALUE) 
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C SET FLAG FOR DASHED LINES ACROSS DATA SPACE , TRUE. 


IOPT-'DASH' 

LVALUE-. TRUE . 

CALL LEZOPT( 10 PT, LVALUE) 

C PUT TWO LABELS ON DEPENDENT .AXIS 

STRING- 'F [ BLC ] ILE TRAFFIC TO/FROM SITE [ELC]A[BLC], FILES/DAY' 

XPOS=. 5 

YPOS-4 . 0 

IHJST=2 

IVJST=2 

IANG-90 

CALL LEZNOT ( STRING , XPOS , YPOS , IH JST , IVJST , IANG) 

STRING-'I [BLC INTERACTIVE CONNECT TIME TO SITE [ELC ]A[BLC] , HOURS/D 
+AY' 

Xpo S =* . 7 5 

CALL LEZNOT (STRING, XPOS, Y POS ,IHJST, IV JST, IANG) 

C PUT TWO LINE TITLE AT TOP OF PAGE 

STRING- 'D[ BLC ]ATA COMMUNICATION TO/FROM SITE [ELC] A' 

XPOS-3.9 
YP0S=6. 6 
IHJST-2 
IVJST-2 
IANG-0 

CALL LEZNOT (STRING, XPOS ,YPOS , IHJST, IVJST, IANG) 

STRING='F [ BLC ] ILE TRAFFIC & INTERACTIVE ACCESS FOR SITE [ELC ] A' 
YP0S=6 . 8 

CALL LEZNOT( STRING , XPOS , YPOS , IHJST , IVJST , IANG) 

CALL LEZNOT('CGLIN3',7. ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 


CALL LEZTRM 

STOP 

END 
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PROGRAM CGLIN4 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS EXAMPLE DRAWS A MULTI-LINE GRAPH WITH COLOR FILLING 

STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!)' 

LEZAXN ( IHV - AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS j 
TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

LEZAXS (IHV - AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL 
TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

IEXP - POWER OF 10 TO BE USED, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 
1: ABSOLUTE 2:ADDITIVE, 

IDTAPP - APPEARANCE INDICATOR 

FOR BARS: 0: UNFILLED I : FILLED 

FOR LINES: 1: LINES 2: MARKERS 3: BOTH, 

KENTRY - KEY ENTRY LABEL FOR THIS DATA SET) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0:METAFILE 1: SCREEN 2:B0TH) 


LEZKEY (TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE PAGE, 

YPOS - Y POSITION ON THE PAGE, 

KENTRY - FIRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 


C LEZLIN (INDARY - INDEPENDENT DATA SET, 

C DEPARY - DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA PAIRS, 

C TITLE - TITLE OF GRAPH, 

C IAXLBL - INDEPENDENT AXIS LABEL, 

C DAXLBL - DEPENDENT AXIS LABEL, 

C INDMIN - INDEPENDENT AXIS MINIMUM, 

C INDMAX - INDEPENDENT AXIS MAXIMUM, 

C DEPMIN - DEPENDENT AXIS MINIMUM, 

C DEPMAX - DEPENDENT AXIS MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL 

C LINAPP - APPEARANCE INDICATOR 1:LINE 2:MARKER 3: BOTH) 
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LEZOPT ( IOPT - OPTION NAME, 

IVALS - OPTION VALUE(S)) 


LEZSHW 

LEZTRM 


C DATA SECTION 


CHARACTER TITLE*80, IAXLBL*80 ,DAXLBL*80 ,KENTRY*80,LABELS*80 
CHARACTER IOPT *8 
INTEGER IDTREL , LINCOL( 3 ) 

LOGICAL LVALUE 

REAL YEAR( 12) ,SITEA(12) , SITEB( 1 2 ) , SITEC( 12) , INUMIN , INEMAX 
DATA YEAR/69. , 70. , 7 1 . , 72. , 73 . ,7 4 , 7 5. , 76. , 77 . , 

+ 78. ,79. ,80./ 

DATA SITEA/ 1.8, I. 9, 1.9, 2. 2, 2. 4, 2. 4, 2. 5, 2. 5, 2. 7, 


+ 3.6,4. 1,4. 3/ 

DATA SITEB/7.1,7.4,7.4,8.2,8.9,8.9,9.3,9.9,I1.4, 

-t- 11.5,11.1,11.2/ 

DATA SITEC/23 . 2,23.6,23.2,24.9,24.9,25.1,25.8, 

+ 26.4,27.7,28.5,29.8,29.4/ 


DO l 1=1,12 

S ITEA( I ) =SITEA( I)*10.**6 
SITEB(I)=SITEB(I)*10.**6 
S ITEC (I)=SITEC(I)*10.**6 
1 CONTINUE 

c INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 


IDEV=1 

CALL LEZINI ( IDEV ) 

C SET UP A LINE GRAPH 

NVALS=12 

TITLE='R [ BLC ] ESOURCE UTILIZATION' 

IAXLBL=' Y { BLC ] EARS' 

DAXLBL='SRU [ BLC ] S PER DAY' 

INDMIN=69. 

INDMAX=80 . 

DEPMIN=0 . 

DEPMAX=30. *10. **6 
INDHV= L 
LI NAP P — 1 

CALL LEZLIN(YEAR,SITEA,NVALS ,TI TLE.IAXLBL.DAXLBL, INDMIN, INDMAX, 
+DEPMIN , DEPM AX, INDHV , LINAPP) 

C CREATE A KEY 
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TITLE*' ' 

XP0S=3 . 5 
YP0S=6. 4 

KENTRY* 'S [BLC ] ITE [ELC ] A' 

CALL LEZKEY( TITLE , XPOS , Y POS , KENTRY) 

C CREATE A NUMERIC AXIS 

IHV*1 
NDEC=-2 
TSTART=69 . 0 
TINCR-1. 

TEND=80. 0 
NTMINR=0 

CALL LEZAXN ( IHV , NDEC .TSTART , TINCR .TEND, NTMINR) 

C CREATE AN .AXIS WITH SCIENTIFIC NOTATION 

IHV=2 

TSTART=0 . 0 
TINCR=10. **7 
TEN D*30. 0*10. **6 
IEXP=6 
NTM INR=9 

CALL LEZAXS( IHV, TSTART, TINCR, TEND, IEXP, NTMINR) 

C INPUT ADDITIONAL DATA SETS 

NVALS=12 
IDTREL=1 
LINAPP* 1 

KENTRY='S [ BLC J ITE [ELC]B' 

CALL LEZDAT(SITEB , NVALS , IDTREL, LINAPP, KENTRY) 
KENTRY= 'S [ BLC ] ITE [ELCJC' 

CALL LEZDAT ( SITEC , NVALS , I DTRE L , LINAPP , KENTRY) 

C SET OPTIONS 

C SET FLAG TO DRAW THE RIGHT AXIS , TRUE. 


IOPT='RTAXIS' 

LVALUE*. TRUE . 

CALL LEZOPT( 10 PT , LVALUE ) 

C CHANGE X COORDINATE OF X-AXIS. 

IOPT-'XORIGIN' 

RVALUE=1 . 

CALL LEZO PT( 10 PT, RVALUE) 

C CHANGE PLOTTED LINE COLORS , ARRAY OF DESIRED COLORS. 
IOPT='COLOR' 
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LINCOL( 1 ) =5 
LINCOL(2)=4 
LINC0L(3)=1 

CALL LEZOPT ( IOPT , LINCOL ) 

C SET FLAGS TO COLOR FILL BETWEEN PLOTTED LINES 

IOPT=*'BFILLD' 

LINCOL(I)=L 
LINCOL( 2 )= I 
LINCOL( 3) = I 

CALL LEZOPT(IOPT, LINCOL) 

C CHANGE POSITION OF HORIZONTAL AXIS TICK MARKS , OUTSIDE DATA SPACE. 

IOPT='HTICPOS' 

IVALUE=2 

CALL LEZOPT(IOPT, LVALUE) 

C CHANGE POSITION OF VERTICAL AXIS TICK MARKS , OUTSIDE DATA SPACE. 

IOPT='VTICPOS' 

I VALUE** 2 

CALL LEZOPT ( IOPT, LVALUE) 

CALL LEZNOT ( 'CGLIN4' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 


B - 93 



o 


oOOOooo 0 


Oo 


°Oo 


o© 


O©. 


o 


a n a nn '' <> 0 OOOO n 

■q DD[:] nnnnnGaQnnnonnnnn 


o 


o 


o 


o 


°o 


o 


°°00000000000000 


o 


! I I I i I J I I I 

3 -.9 -.0 -.7 -.6 -.5 -.4 -.3 -.2 -.1 0 


2y/b 


Vortex flow about a 60° delta wing with a=20° 


CGLIN5 



non 


PROGRAM CGLIN5 




C 

C THIS EXAMPLE DRAWS A MULTI-LINE CHART WITH A DECREASING VERTICAL AXIS. 
C THE COMMENTS IN THIS PROGRAM EMPHASIZE DECREASING AXES. 

C 

STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN XLPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZAXN ( IHV - AXIS INDICATOR 1 : HORIZONTAL 2: VERTICAL, 

C NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

C TSTART - FIRST MAJOR TICK M \RK VALUE, 

C TINCR - MAJOR TICK MARK INCREMENT, 

C TEND - LAST MAJOR TICK MARK VALUE, 

C NTMINR - NUMBER OF MINOR TI :K MARKS PER INCREMENT) 

C 

C LEZDAT (DEPARY - ADDITIONAL DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA VALUES , 

C IDTREL - RELATIONSHIP BETWEEN DEPENDENT DATA SETS 

C l : ABSOLUTE 2: ADDITIVE, 

C IDTAPP - APPEARANCE INDICATOR 

C FOR BARS: 0: UNFILLED I : FILLED 

C FOR LINES: 1:LINES 2: MARKERS 3:B0TH, 

C LENTRY - KEY ENTRY LABEL FO <. THIS DATA SET) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C 0:METAFILE 1: SCREEN ’: BOTH) 

C 

C LEZKEY (TITLE - TITLE OF CHART, 

C XPOS - X POSITION ON THE PAGE, 

C YPOS - Y POSITION ON THE PAGE, 

C KENTRY - FIRST KEY ENTRY LA ',EL) 

C KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

C 

C LEZLIN (INDARY - INDEPENDENT DATA SOT, 

C DEPARY - DEPENDENT DATA SET 

C NVALS - NUMBER OF DATA PAIRS, 

C TITLE - TITLE OF CHART, 

C IAXLBL - INDEPENDENT AXIS LIBEL, 

C DAXLBL - DEPENDENT AXIS LABEL , 

C INDMIN - INDEPENDENT AXIS M NIMUM, 

C INDMAX - INDEPENDENT AXIS M AXIMUM, 

C DEPMIN - DEPENDENT AXIS MIN MUM, 

C DEPMAX - DEPENDENT AXIS MAXIMUM, 

C INDHV - INDEPENDENT AXIS INDICATOR l:HORIZONTAL 2:VERTICAL, 

C LINAPP - APPEARANCE INDICATOR 1:LINE 2:MARKER 3: BOTH) 

C 

C LEZSHW 
C 

C LEZTRM 
C 
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C VARIABLE DECLARATION AND INITIALIZATION 


CHARACTER TITLE*128 , I AXLBL*80 ,DAXLBL*80 ,KENTRY*80 

REAL SPAN(25) ,CLIFT(25) , CDRAG (25), CMOM NT ( 2 5 ) , I NLM I N , I NDM AX 

DATA CLIFT/. 4748, .6962, .8165, .9102, .9631 , 1.005, 1.063, 1 . L 12 , 

+1. 146, 1. 1 70, 1. 1 87, 1. 199, 1.207, 1.2 10, L. 209, 1. 203, 1. 193, 1.180, 
+1.163,1.142,1.117,1.094,1.076,1.028, .5721/ 

DATA CDRAG/. 1674, .2426, .2827,. 3137,. 3307,. 3439,. 3629, .3789, 

+ .3897, .3971, . 4021 ,. 4056, . 4077 ,. 4084, .4076,-4054, .4020, .397 5, 
+.3919,. 3852,. 3776,. 3705,. 3652,. 3519,. 3038/ 

DATA CMOrtNT/-. 3639, -.4936, -.5337,-. 5454, -.5263, -.497 l, -.4704, 
+-.4348, -.3902, -.3404, -.2878, -.2336, -.1790, -.1246, -.07136, 

+-. 02016, .02818, .07293, . 1133, . 1484, . 1774, . 2022 ,. 2261 , . 2264, -.062 16/ 
RI=-1 . 0 
DO 1 1=1,25 
RI=RI+.04 

1 SPAN(I)=RI 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV=0 

CALL LEZINI (IDEV) 

C SET UP A LINE PLOT 

ESTABLISH CHART AS A LINE CHART, AND ENTER FIRST DATA SET. 

*** NOTE: DECREASING AXIS IS OBTAINED BY SETTING 'DEPMIN' TO BE 
GREATER THAN 'DEPMAX' . 


NVALS=25 

TITLE='V [ BLC JORTEX FLOW ABOUT A 60[BSUP]0 [ESUPJ DELTA WING WITH [F 
+0NT=9 ]A[F0NT]=20[BSUP]O' 

IAXLBL=' 2 [BLC ]Y/B' 

DAXLBL='A[ BLC j ERODYNAMIC PROPERTIES' 

INDMIN=-1 . 

INDMAX=0. 

DEPMIN=2.0 
DEPMAX=-2 . 0 
INDHV= I 
LINAPP=2 

CALL LEZLIN(SPAN, CLIFT, NVALS, TITLE, IAXLBL, DAXLBL, INDMIN, INDMAX, 
+DEPMIN , DEPMAX, INDHV,LINAPP) 

C CREATE A KEY 

TITLE*' ' 

XP0S=6 . 0 
YP0S=6.0 

KENTRY='C [ BSUB ] [BLC] [F0NT=11]L' 

CALL LEZKEY(T I TLE , XPOS ,YP0S .KENTRY) 

C CREATE A NUMERIC AXIS 


IHV=2 
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NDEO-1 
TSTART=2.0 
TINCR=- L . 0 
TEND=-2.0 
NTM INR=4 

CALL LEZAXN( IHV , NDEC ,TSTART , TINCR.TEND, NTMINR) 

C INPUT ADDITIONAL DATA SETS 

NVALS=25 

IDTREL=1 

LINAPP=2 

K£NTRY='C [ BSUB ] [ BLC ] D' 

CALL LEZDAT(CDRAG ,NVALS , IDTREL,L LNAPP , KENTRY ) 

NVALS=25 

IDTREL=1 

LINAPP=2 

KENTRY='C [BSUB ] [ BLC ]M ' 

CALL LEZDAT(CMOMNT,NVALS,IDTREL, .INAPP, KENTRY) 

CALL LEZNOT('CGLIN5',7. ,0. ,3,1,0) 

C SHOW CHART 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY YND DI-3000 

CALL LEZTRM 
STOP / 

END 
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PROGRAM CGMIX1 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS EXAMPLE DRAWS A LINE, A BAR, AND A PIE CHART ON ONE PAGE. 

STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

LEZAXN ( IHV - AXIS INDICATOR I:HOR]ZONTAL 2:VERTICAL, 

NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS, 

TSTART - FIRST MAJOR TICK MARK VALUE, 

TINCR - MAJOR TICK MARK INCREMENT, 

TEND - LAST MAJOR TICK MARK VALUE, 

NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

LEZBAR (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALLES, 

TITLE - TITLE OF GRAPH, 

■ INDEPENDENT .AXIS LABEL, 

DEPENDENT AXIS LABEL, 

INDEPENDENT DATA MINIMUM, 

INDEPENDENT DATA MAXIMUM, 

DEPENDENT DATA MINIMUM, 

DEPENDENT DATA MAXIMUM, 

INDEPENDENT AXIS INDICATOR l:HORIZONTAL 2:VERTICAL, 


IAXLBL 
DAXLBL 
INDMIN 
INDMAX 
DEPMIN 
DEPMAX 
INDHV - 


IBRAPP - APPEARANCE INDICATOR 0: UNFILLED 1: FILLED) 


LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0 METAFILE L: SCREEN 2: BOTH) 

LEZLIN (INDARY - INDEPENDENT DATA S<IT, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA PAIR > , 

TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS M LXIMUM , 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAX MUM, 

INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 
LINAPP - APPEARANCE INDICATOR 1:LINE 2:MARKER 3: BOTH) 

LEZNOT (STRING - NOTE, 

XPOS - X POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 
YPOS - Y POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 
IHJST - HORIZONTAL JUSTIFICATION 1 : LEFT 2: CENTER 3: RIGHT, 
IVJST - VERTICAL JUSTIFICATION 1: BOTTOM 2: CENTER 3:T0P, 

IANG - ANGLE OF ROTATION ABOUT THE JUSTIFICATION POINT) 
ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 
FROM THE HORIZONTAL AXIS. 
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c 

C LEZOPT ( 10 PT - OPTION NUMBER, 

C IVALS - OPTION VALUE(S)) 

C 

C LEZPLE (SEGS - DATA SET, 

C NUM - NUMBER OF DATA VALUES, 

C TITLE - TITLE OF GRAPH, 

C NEXP1 - NUMBER OF FIRST EXPLODED SEGKENT , 

C NEXP2 - NUMBER OF LAST EXPLODED SEQ1ENT, 

C LFORMl - QUANTITY LABEL INDICATOR 0:D0 NOT DISPLAY I: DISPLAY, 

LF0RM2 -PERCENTAGE LABEL INDICATOR 0:D0 NOT DISPLAY 1: DISPLAY) 

LEZPGE (XVAL - WIDTH OF DESIRED PAGE, 

YVAL - HEIGHT OF DESIRED PAGE) 

LEZPLB (NOPLB - SEGMENT NUMBER ASSOCIATED WITH LABEL, 

LABEL - SEGMENT LABELS, 

KEY - KEY ENTRY LABEL FOR THIS SEGMENT) 

LEZSHW 
C 

C LEZTRM 
C 



C DATA SECTION 

REAL INDMAX, INDMIN 

REAL COMP ( 6 ) , CELS (7 ) , PRESS ( 7 ) , ENTRPY(1 I ) ,KELVN( I I ) 

CHARACTER*80 TITLE , STRING , LABEL , IAXLBL, DAXLBL , KEY , LABELS 

DATA COMP/4.6,3.7,2.9,5.1,4.3,3.2/ 

DATA CELS/-30. ,-20. ,-10. ,0. ,10. ,20. ,30./ 

DATA PRESS/400. ,415.8,388.2,355.3,310.6,373.7,358.4/ 

DATA ENTRPY/O. ,1. ,2. ,3. ,4. ,5. ,6. ,7., 8. ,9. ,10./ 

DATA KELVN/12.6,37.2,48. , 55. ,62. 4,64. 4,74. 8,81 . 3, 88 . 1 ,94 . 1 ,98. 3/ 

C SET UP NON-DEFAULT PAGE SIZE 

XVAL=7 . 0 
YVAL=9 . 0 

CALL LEZPGE (XVAL, YVAL) 


C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV=0 

CALL LEZINI (IDEV) 

C SET UP PIE GRAPH 

NUM = 6 
TITLE = ' ' 
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NEXP1 = 0 
NEXP2 = 0 
LF0RM1 = 0 

CALL^LEZPIE (COMP , NUM , TITLE , NEXPl , NEXP2 , LFORM1 ,LFORM2) 

C make KEY ENTRIES 

NOPLB = 1 

LABEL. = 'A [ BLC ] LLOY 1' 

KEY = ' ' 

CALL LEZPLB (NOPLB, LABEL, KEY) 

CALL LEZPLB ( 2 , ' A [ BLC ] LLOY 2',' ') 

CALL LEZPLB ( 3 , ' A[ BLC ] LLOY 3','^ ) 

CALL LEZPLB ( 4 , 'N [ BLC ] ICKEL' , ' 

CALL LEZPLB ( 5 , 'C [ BLC ]OPPER' , ' 

CALL LEZPLB (6 , '0 [BLC ]THERS' , ' 

C SET OPTIONS 

C CHANGE RADIUS OF PIE. 

CALL LEZOPT ( 'RADIUS' , 0 . 62 ) 

0 CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 3. 5) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 7 . 8) 

C SET FLAG TO NOT CLEAR SCREEN AFTER LEZSHW. 

CALL LEZOPT ( 'CLEAR' ,. FALSE . ) 

c sex FLAG TO NOT PAUSE AFTER LF.ZSHV . 

CALL LEZOPT (' PAUSE' ,. FALSE . ) 


C SHOW GRAPH 


CALL LEZSHW 

0 RE-INITIALIZE CGL AND DI-3000 — 

IDEV=0 

CALL LEZINI (IDEV) 


C SET UP BAR GRAPH 


NVALS = 7 
TITLE = ' ' 

IAXLBL = 'T [ BLC ] EMPERATURE , 
DAXLBL = ' ' 

INDMIN = -40. 

INDMAX = 40. 

DEPMIN = 250. 

DEPMAX = 450. 

INDHV = l 


[ BSUP ]0 [ESUP ] [ELC]C' 


IBRAPP = l 
CALL LEZBAR 


(CELS, PRESS, NVALS, TITLE, IAXLBL, DAXLBL, INDMIN, INDMAX, 

DEPMIN, DEPMAX, INDl V, IBRAPP) 
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C CREATE A NUMERIC AXIS 

IHV-2 
NDEC— 3 
TSTART-DEPMIN 
TINCR-100. 

TEND-DEPMAX 

NTMINR-9 

CALL LEZAXN( IHV , NDEC .TSTART ,TINCR, TEND, NTMINR) 


C SET OPTIONS 

C CHANGE LENGTH OF HORIZONTAL AXIS. 

CALL LEZOPT ( 'HAXLEN' , 5.0) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' ,1.5) 

C CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 1 . 7 5) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 4. 7 5) 

C SET FLAG TO NOT CLEAR SCREEN AFTER LEZSHW. 

CALL LEZOPT ( 'CLEAR' ,. FALSE . ) 

C SET FLAG TO NOT PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' ,. FALSE . ) 

C SHOW GRAPH 

CALL LEZSHW 

C RE-INITIALIZE CGL AND DI-3000 

IDEV-0 

CALL LEZINI (IDEV) 

C SET UP LINE GRAPH 

NVALS * 11 
TITLE - ' ' 

IAXLBL = 'E[BLC]NTROPY, [ELC]S, J/[BLC]MOL AT 1 ATMOS' 

DAXLBL - ' ' 

INDMIN -0.0 
INDMAX - 10. 

DEPMIN = 10. 

DEPMAX = 110. 

INDHV - 1 
LINAPP - 1 

CALL LEZLIN (ENTRPY , KELVN , NVALS .TITLE , IAXLBL, DAXLBL, INDMIN, INDMAX , 
+ DEPMIN, DEPMAX, INDHV, LINAPP) 

C CREATE A NUMERIC AXIS 

IHV-2 

NDEC—2 
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TSTART-DEFMIN 

TINCR=20. 

TEND=DEPMAX 

NTMINR=1 

CALL LEZAXN(IHV,NDEC,TSTART, TINt :R, TEND, NTMINR) 

C SET OPTIONS FOR LINE GRAPH 

C CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ('XORIGIN' , 1.75) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 1 . 7 5) 

C CHANGE LENGTH OF HORIZONTAL AXIS. 

CALL LEZOPT ( 'HAXI.EN' ,5.0) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' ,1.5) 

C PLACE NOTES ON PAGE 

STRING = ' [BLC]A) [ELC ] C [ BLC ] OH POSIT ION OF [ELCJS [ BLC ] UPERALLOY' 

XPOS =3.5 

YPOS =6.5 

IHJST = 2 

IVJST = 1 

IANG = 0 

CALL LEZNOT (STRING , XPOS , YPOS , I HJST , IV JST , IANG) 

STRING = ' [BLC ]B) [ELC ]L [BLC ]0W PRESSURE FATIGUE OF [ELC ) S [ BLC ] UPE 

4-RALLOY' 

YPOS = 3.65 

CALL LEZNOT (STRING, XPOS , YPOS , I HJST , IVJST , IANG) 

STRING = ' [BLC ]C) [ELC ]T[BLC]ENPERATURE VS. ENTROPY FOR [ELC]S[BLC 
+ ] UPERALLOY' 

YPOS = .65 

CALL LEZNOT (STRING , XPOS , YPOS ,! HJST , IVJST, IANG) 

STRING = 'F [BLC ] IGURE NUM . [ ELC ] C [BLC [HARACTERI STIC CHARTS FOR [EL 
4G ] S [ BLC ] UPERALLOY ' 

YPOS = 0.0 

CALL LEZNOT (STRING , XPOS , YPOS , HJST, IVJST, IANG) 

STRING = 'P [ BLC ] RES SURE' 

XPOS = . 5 
YPOS = 5.75 
IHJST = 2 
IVJST = 3 
IANG = 0 

CALL LEZNOT ( STRING , XPOS , YPOS , [HJST , IVJST , IANG) 

STRING = '[BLC] AT FAILURE,' 

YPOS = 5.5 

CALL LEZNOT ( STRING , XPOS , YPOS , LHJST , IVJST , IANG) 
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STRING = ' [BLC ) PASCALS ' 

YPOS « 5.25 

CALL LEZNOT (STRING , XPOS , YPOS , IHJST , IVJST, IANG) 

STRING * 'T [ BLC ] EMPERATURE , ' 

YPOS - 2.75 

CALL LEZNOT (STRING, XPOS , YPOS , IHJST, IVJST, IANG) 

STRING » 'K' 

YPOS * 2.5 

CALL LEZNOT (STRING, XPOS , YPOS , IHJST, IVJST, IANG) 

CALL LEZNOT ( 'CGMIX1' , 7 . 0, 0. 0, 3 , I ,0) 

C SHOW GRAPH 


CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

RETURN 

END 
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PROGRAM CGMIX2 




C " 

r JuJL EXAMPLE: draws a composite chart with a linear and a log base 10 

G CHART 
G 


c 

c 

c 

c 


STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
(THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER 
NOT NECESSARILY IN THE ORDER THEY ARE USED!!!)’ 


C LEZAXN ( IHV - AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C NDEC - NUMBER OF DIGITS FOR TICK MARK LABELS ’ 

C TSTART - FIRST MAJOR TICK MARK VALUE, 

C TINCR - MAJOR TICK MARK INCREMENT, 

C TEND - LAST MAJOR TICK MARK VALUE, 

C NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 


C LEZAXT (IHV - AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 

C NLABS - NUMBER OF TICK MARK LABELS IN STRING * 

C LABELS - TICK MARK LABELS, 

C NTMAJR - NUMBER OF MAJOR TICK MARKS, 

C NTMINR - NUMBER OF MINOR TICK MARK PER INCREMENT) 


C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
OrMETAFILE I: SCREEN 2: BOTH) 


LEZLIN (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA PAIRS, 

TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS MAXIMUM, 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAXLMUM , 

INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL 
LINAPP - APPEARANCE INDICATOR 1:LINE 2:MARKER 3: BOTH) 

LEZLOG (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA VALUES, 

TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS MAXIMUM, 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAXIMIM , 

IAXTYP - DETERMINE AXIS TYPE 1:L0G IND 2:L0G DEP 3: LOG BOTH 
IHLOGI - HORIZONTAL AXIS TICK MARK LABEL TYPE, 

IVLOGI - VERTICAL AXIS TICK MARK LABEL TYPE, 

INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 
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L1NAPP - APPEARANCE INDICATi iR 1 : LINE 2: MARKER 3: BOTH) 

LEZOPT (OPTION - OPTION NAME, 

IVALS - OPTION VALUE(S) ) 

LEZPGE (XVAL - WIDTH OF DESIRED PAGE, 

YVAL - HEIGHT OF DESIRED PAGE) 

LEZSHW 

C LEZTRM 
C 

C 

C DATA SECTION 

CHARACTER*80 TITLE , IAXLBL, DAXLB ..LABELS 
REAL FREQ( 100) , POWER ( 100) , INDMIN , INDMAX 
REAL PI(25) ,SSIN(25) 

DATA (POWER (I ) , 1=1,76)/ 

+ 7066.0770323, 313987.5856597 23005.34014683, 25971.13637497, 

+ 23314.47811626, 16222.72126064 11123.46224798, 8573.673551723, 

+ 6533.280733426, 6567.484820724 5931.92717933, 3100.185764845, 

+ 1075.542233512, 2304.552081512 3938.878376374, 2372.668800947, 

+ 990.5827153465, 1139.692923046 539.1035104119, 186.2399260743, 

+ 185.9121866205, 6922.275564162 47871.80671708, 101610.8109471, 

+90151.05656181, 32565.81919631 3126.25985372, 5378.883275207, 

+ 19139.27829711, 26311.51279586 18051.10302768, 7595.925085295, 

+2769.064915013, 1114.906853713 472.3435990609, 336.5553643497, 

+ 224.6112529072, 292.8078714839, 913.1650006148, 1111.290988571, 
+ 763.2538952391, 1036.757022708 2318.840862193, 1815.115702427, 

+ 1546.468077257, 30998.79018191 90446.39960755, 99542.65318885, 

+ 46517.56984878, 8264.407149583, 477.4873134733, 82.183079214, 

+ 67.7501808438, 136.6466583528 197.6147132091, 229.3505457034, 

+ 643.2165902202, 1824.921600301, 5246.018888617, 9355.942325835, 
+ 8240.202957789, 4042.516486596, 1615.454279283, 876.7523693048, 
+ 780.321551955, 869.2380712535, 806.9102907816, 1417.485863451, 

+13314.08558278, 42705.82833591, 56933.22987158, 34522.64829539, 
+ 8369.70034301, 423.4410260173, 1721.308093883, 3815.021552281/ 

DATA (POWER(I), 1=77, 100)/ 

+ 3096.896818539, 1130.33337685, 351.6629052997, 323.9146852672, 

+ 496.8216394068, 716.3789266813, 707.1830537755, 395.452882063, 

+ 185.9595078555, 349.7278623283, 579.1256929328, 427.7957796537, 
+ 339.4866401359, 404.7726592585 3303.494231505, 44732.3344563, 

+ 168132.2764905, 259620.2781873, 179647.069922, 51634.19154093, 

+ 4701.338454798, 220.74733211, 377.2257021375, 552.6383507909/ 

DO 1 1=1,100 
RI=I 

FREQ(I)=RI-1. 

1 P0WER(I)=L0G10(P0WER(I) ) 

C SET UP DESIRED PAGE 
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XVAL=7 . 0 
YVAL=*9 . 0 

CALL LEZPGE (XVAL.YVAL) 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV-2 

CALL LEZINI(IDEV) 

C SET UP A LOG PLOT, INCOMING DATA HAS BEEN CONVERTED 

NVALS=100 
TITLE*' ' 

IAXLBL*'F [ BLC] REQUENCY, [ELC ) H [ BLCJZ' 

DAXLBL**'P [ BLC jOWER LEVEL' 

INDMIN-0.0 

INDMAX-0.0 

DEPMIN-0.0 

DEPMAX=0. 0 

IAXTYP=2 

IHL0GI*0 

IVLOGI=0 

INDHV* 1 

LINAPP*1 

CALL LEZLOG( FREQ , POWER , NVALS .TITLE , IAXLBL, DAXLBL, INDM IN , I NDM AX , 
+DEPMIN , DEPMAX, IAXTYP , IHLOGI , IVLOGI , INDHV .LINAPP) 

C CREATE AN INTEGER AXIS 

IHV-1 

13—3 

NDEC-I3 

TSTART-0.0 

TINCR-10.0 

TEND-100.0 

NTMINR-1 

CALL LEZAXN(IHV,NDEC,TSTART,TINCR,TEND,NTMINR) 


C SET OPTIONS 

C CHANGE LENGTH OF HORIZONTAL AXIS. 

CALL LEZOPT ( 'HAXLEN' ,4.5) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' , 3.0) 

C CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 1 . 25 ) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN',5.75) 

C SET FLAG TO NOT CLEAR SCREEN AFTER LEZSHW. 

CALL LEZOPT ( 'CLEAR' ,. FALSE . ) 

C SET FLAG TO NOT PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' ,. FALSE . ) 

CALL LEZNOT('CGMIX2',7. ,0. ,3,1,0) 

ORIGINAL FACE IS 
OF POOR QUALITY 
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ORIGINAL PAGE S3 

OF POOR QUALITY 

C SHOW GRAPH 

CALL LEZSHW 

WPI=ACOS(-l. ) 

DO 10 1=1,25 
RI=I 

PI(I) = (RI-l. )*(WPI/12. ) 

SSIN(I)=SIN(PI(I)) 

10 CONTINUE 

C RE-INITIALIZE COMMON GRAPHICS LIB 1ARY AND DI-3000 

IDEV=2 

CALL LEZINI ( IDEV ) 

C SET UP A LINE PLOT 

NVALS=25 
TITLE 58 ' ' 

IAXLBL='P { BLC ] ERIOD IN RADIANS' 

DAXLBL='T [ BLC ]RIGO NOMETRIC VALU iS' 

INDMIN=PI ( 1 ) 

INDMAX=PI (25 ) 

DEPMIN=-2 . 0 
DEPMAX=2.0 
INDHV=1 
LINAPP=1 

CALL LEZLIN( PI, SSIN.NVALS, TITLE ,IAXLBL,DAXLBL, INDMIN, 
+INDMAX.DEPMIN , DEPMAX, INDHV ,LINAPP) 

C CREATE A CHARACTER AXIS 

IHV-1 

NLABS=3 

LABELS='$0$[F0NT=9] [BLC]Q$2[FOM=9] [BLC]Q$' 

NTMAJR=3 

NTMINR-3 

CALL LEZAXT(IHV,NLABS, LABELS, NIMAJR.NTMINR) 

C CREATE A NUMERIC AXIS 

IHV~2 
NDEC=-1 
TSTART=-2 . 0 
TINCR=1 . 0 
TEND=2 . 0 
NTMINR=4 

CALL LEZAXN( IHV , N DEC .TSTART , Til iCR , TEND, NTMINR) 

C SET OPTIONS 

C CHANGE LENGTH OF HORIZONTAL AXIS 

CALL LEZOPT ('HAXLEN',4. 5) 
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C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' ,3.0) 

C CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 1 .25) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 1 . 0) 

C— SHOW GRAPH 

CALL LEZSHW 

c TERMINATE COMMON GRAPHICS LIBRARY AND DI-30OO 

CALL LEZTRM 

STOP 

END 
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This figure is intentionally not centered. 

The position of this figure is determined by the following program. 


c) 
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PROGRAM CGMIX3 


ORKHtt- *'■ * v - ^ 
QF. f-COR vj.<.sLl»Y 




c 

C THIS EXAMPLE DRAWS A LINE, A BAR, AND A PIE CHART ON ONE PAGE. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDFR THEY ARE USED!!!) 

C 

C LEZAXN ( IHV - AXIS INDICATOR l:HOPIZONTAL 2:VERTICAL, 

C NDEC - NUMBER OF DIGITS FCR TICK MARK LABELS, 

C TSTART - FIRST MAJOR TICK MARK VALUE, 

C TINCR - MAJOR TICK MARK INCREMENT, 

C TEND - LAST MAJOR TICK MAFK VALUE, 

C NTMINR - NUMBER OF MINOR TICK MARKS PER INCREMENT) 

C 

C LEZBAR (INDARY - INDEPENDENT DATA SET, 

C DEPARY - DEPENDENT DATA SET, 

C NVALS - NUMBER OF DATA VAIUES, 

C TITLE - TITLE OF GRAPH, 

C IAXLBL - INDEPENDENT AXIS LABEL, 

C DAXLBL - DEPENDENT AXIS LABEL, 

C INDMIN - INDEPENDENT DATA MINIMUM, 

C INDMAX - INDEPENDENT DATA MAXIMUM, 

C DEPMIN - DEPENDENT DATA MINIMUM, 

C DEPMAX - DEPENDENT DATA MAXIMUM, 

INDHV -- INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2: VERTICAL, 
IBRAPP - APPEARANCE INDICATOR 0: UNFILLED 1: FILLED) 

LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0: METAFILE 1: SCREEN 2: BOTH) 

LEZLIN (INDARY - INDEPENDENT DATA SET, 

DEPARY - DEPENDENT DATA SET, 

NVALS - NUMBER OF DATA PAIRS, 

TITLE - TITLE OF GRAPH, 

IAXLBL - INDEPENDENT AXIS LABEL, 

DAXLBL - DEPENDENT AXIS LABEL, 

INDMIN - INDEPENDENT AXIS MINIMUM, 

INDMAX - INDEPENDENT AXIS MAXIMUM, 

DEPMIN - DEPENDENT AXIS MINIMUM, 

DEPMAX - DEPENDENT AXIS MAXIMUM, 

INDHV - INDEPENDENT AXIS INDICATOR 1: HORIZONTAL 2:VERTICAL, 
LINAPP - APPEARANCE INDICATOR 1:LINE 2: MARKER 3: BOTH) 

LEZNOT (STRING - NOTE, 

XPOS - X POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 
YPOS - Y POSITION OF THE J JSTIFICATION POINT ON THE PAGE, 
IHJST - HORIZONTAL JUSTIF I ]ATION 1:LEFT 2:CENTER 3: RIGHT, 
IVJST - VERTICAL JUSTIF LCA T10N . 1 : BOTTOM 2: CENTER 3:T0P, 

IANG - ANGLE OF ROTATION ABOUT THE JUSTIFICATION POINT) 
ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 
FROM THE HORIZONTAL AXIS. 
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c 

C LEZOPT ( IOPT - OPTION NUMBER, 

C IVALS - OPTION VALUE(S)) 

C 

C LEZPIE (SEGS - DATA SET, 

C NUM - NUMBER OF DATA VALUES, 

C TITLE - TITLE OF GRAPH, 

C NEXP1 - NUMBER OF FIRST EXPLODED SEGMENT, 

C NEXP2 - NUMBER OF LAST EXPLODED SEGMENt, 

C LFORM1 - QUANTITY LABEL INDICATOR 0:DO NOT DISPLAY 1: DISPLAY, 

C LFORM2 -PERCENTAGE LABEL INDICATOR 0:D0 NOT DISPLAY I: DISPLAY) 

C LEZPGE (XVAL - WIDTH OF DESIRED PAGE, 

C YVAL - HEIGHT OF DESIRED PAGE) 

C 

C LEZPLB (NOPLB - SEGMENT NUMBER ASSOCIATED WITH LABEL, 

C LABEL - SEGMENT LABELS, 

C KEY - KEY ENTRY LABEL FOR THIS SEGMENT) 

C 

C LEZSHW 
C 

C LEZTRM 
C 



C DATA SECTION 

REAL INDMAX, INDMIN 

REAL COMP( 6) , CELS (7),PRESS(7) ,ENTRPY(1 I ) ,KELVN(1 1 ) 

CHARACTER*80 TITLE, STRING, LABEL, IAXLBL.DAXLBL, KEY 

DATA COMP/4. 6, 3. 7, 2. 9, 5. 1, 4. 3, 3. 2/ 

DATA CELS/-30. ,-20. ,-10. ,0. ,10. ,20. ,30./ 

DATA PRESS/400. ,415.8,388.2,355.3,310.6,373.7,358.4/ 

DATA ENTRPY/0. ,1. ,2. ,3. ,4. ,5. ,6. ,7. ,8. ,9. ,10./ 

DATA KELVN/12 . 6 , 37 .2,48. ,55. ,62.4,64.4,74.8,81.3,88.1,94.1,98.3/ 

C SET UP NON-DEFAULT PAGE SIZE 

XVAL- 7.0 
YVAL-9.0 

CALL LEZPGE (XVAL, YVAL) 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV =» 0 

CALL LEZINI (IDEV) 

C SET UP BAR GRAPH 

NVALS = 7 
TITLE = ' ' 

IAXLBL - 'T [ BLC ] EMPERATURE , [ BSUP]0[ESUP] [ELC ] C' 
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DAXLBL = ' ' 

INDMIN = -40. 

INDMAX = 40. 

DEPMIN = 250. 

DEPMAX = 450. 

INDHV - l 
IBRAPP = l 

CALL LEZBAR ( CELS , PRESS , NVALS , TITLE , IAXLBL, DAXLBL , INDMIN , INDMAX , 
+ DEPMIN, DEPMAX, IND IV, IBRAPP) 

C CREATE A NUMERIC AXIS 


IHV=2 
NDEC=-3 
TSTART=DEPMIN 
TINCR=I00 . 

TEND=DF,PMAX 

NTMINR=9 

CALL LEZAXN(IHV,NDEC,TSTART,TI NCR, TEND, NTMINR) 
C SET OPTIONS 

C CHANGE LENGTH OF HORIZONTAL AXIS. 

CALL LEZOPT ( 'HAXLEN' ,5.0) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' ,1.5) 

C CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 1 . 7 5 ) 

G CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' ,6. ) 

C SET FLAG TO NOT 'CLEAR SCREEN AFTER LEZSHW. 

CALL LEZOPT ( 'CLEAR' ,. FALSE . ) 

C SET FLAG TO NOT PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' , .FALSE . ) 


C SHOW GRAPH 


CALL LEZSHW 

C RF-INITIALIZE CGL AND DI-3000 

IDEV=0 

CALL LEZINI (IDEV) 

C SET UP LINE GRAPH 

NVALS = 11 
TITLE = ' ' 

IAXLBL = 'E [ BLC } NTROPY , [ELC]S J/[BLC]MOL AT 1 ATMOS 
DAXLBL = ' ' 

INDMIN =0.0 
INDMAX = 10. 

DEPMIN = 10. 

DEPMAX =110. 


B - 115 



INDHV = 1 
L I N AP P = 1 

CALL LEZLIN (ENTRPY, KELVN.NVALS .TITLE ,IAXLBL, DAXLBL, INDMIN, INDMAX, 
+ DEPMIN.DEPMAX, INDHV, LINAPP) 

C CREATE A NUMERIC AXIS 

IHV=2 

NDEC=-2 

TSTART=DEPMIN 

TINCR=20. 

TEND=DEPMAX 

NTMINR=L 

CALL LEZAXN( IHV , NDEC,TSTART,TINCR,TEND, NTMINR) 

C SET OPTIONS FOR LINE GRAPH' 

C CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 1 . 75) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 2. 25) 

C CHANGE LENGTH OF HORIZONTAL AXIS. 

CALL LEZOPT ( 'HAXLEN' , 5 . 0) 

C CHANGE LENGTH OF VERTICAL AXIS. 

CALL LEZOPT ( 'VAXLEN' ,1.5) 

C PLACE NOTES ON PAGE 

STRING = '(BLC]A) [ELC]L[BLC]OW PRESSURE FATIGUE OF ( ELC] S [ BLC ] UPE 
+RALLOY' 

XPOS =0.0 
YPOS = 4.4 
IHJST = 1 
IVJST = 1 
IANG = 0 

CALL LEZNOT (STRING, XPOS, YPOS, IHJST, IVJST, IANG) 

STRING = ' [BLC ] B) [ ELC ] T [ BLC ] EMPERATURE VS. ENTROPY FOR [ELC ]S [BLC 
+JUPERALLOY' 

YPOS = .65 

CALL LEZNOT (STRING, XPOS, YPOS, IHJST, IVJST, IANG) 

STRING = "F [ BLC ] IGURE NUM. [ ELC J C [ BLC ] HARACTERISTIC CHARTS FOR [EL 
+C ] S [ BLC JUPERALLOY' 

YPOS =0.0 

CALL LEZNOT (STRING, XPOS , YPOS , IHJST, IVJST, IANG) 

STRING = '? [ BLC ]RESSURE' 

XPOS = .5 
YPOS = 7. 

IHJST = 2 
IVJST = 3 
IANG = 0 

CALL LEZNOT ( STRING, XPOS , YPOS , IHJST, IVJST , IANG) 
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STRING = ' [BLC ] AT FAILURE,' 

YPOS =6.75 

CALL LF.ZNOT (STRING , XPOS .YPOS , I IJST , IVJST , IANG) 

STRING = '[BLC] PASCALS' 

YPOS =6.5 

CALL LEZNOT ( STRING , XPOS , YPOS , I HJST , IVJST , IANG) 

STRING = 'T [ BLC ] EMPERATURE , ' 

YPOS = 3.25 

CALL LEZNOT (STRING , XPOS , YPOS , 1 HJST, IVJST , IANG) 

STRING = 'K' 

YPOS =3.0 

CALL LEZNOT ( STRING, XPOS , YPOS , j HJST, IVJST, IANG) 

CALL LEZNOT ( 'CGMIX3' ,7. 0,0.0,!, 1,0) 

SHOW GRAPH 

CALL LEZSHW 

RE-INITIALIZE CGL AND DI-3000 

IDEV=0 

CALL LEZINI (IDEV) 

SET UP PIE GRAPH 

NUM = 6 
TITLE = ' ' 

NEXP1 = 0 
NEXP2 = 0 
LFORMl = 0 

CALL^LEZP IE (COMP , NUM, TITLE ,N1XP1 ,NEXP2 .LF0RM1 , LF0RM2 ) 

—MAKE KEY ENTRIES 

NOPLB = 1 

LABEL = 'A [BLC ]LL0Y 1' 

KEY = ' ' 

CALL LEZPLB (NOPLB .LABEL , KEY) 

CALL LEZPLB ( 2 , 'A [ BLC ] LLOY 2'.' ') 

CALL LEZPLB ( 3 , ' A [ BLC ] LLOY 3',' ') 

CALL LEZPLB (4 , 'N [BLC JICKEL' , ' ') 

CALL LEZPLB (5, 'C [ BLC ]OPPER' , ' ') 

CALL LEZPLB (6 , '0 [ BLC ] THERS ' , ' ') 

— -SET OPTIONS 

CHANGE RADIUS OF PIE. 

CALL LEZOPT ( 'RADIUS' , 1 . ) 
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C CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 3 . 5 ) 

C CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 3 . 0) 

C PLACE NOTES ON PAGE 

STRING - ' [BLC ]C) [ELC]C[BLC]OMPOSITION OF [ ELC ] S [ BLC ] UPERALLOY' 
XPO S * 0.0 
YPOS - I. 

IHJST - 1 
IVJST - 1 
IANG * 0 

CALL LEZNOT (STRING, XPOS , YPOS , IHJST, IVJST, IANG) 

STRING » 'F [ BLC ] IGURE NUM. [ ELC J C [ BLC ] ONCLUDED ' 

XPOS =3.5 
IHJST = 2 
YPOS =0.0 

CALL LEZNOT( STRING, XPOS, YPOS, IHJST, IVJST, IANG) 

C— - SHOW GRAPH- 
CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

RETURN 

END 
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Meet with supervisor 



Daily activities 


CGPIE1 


PROGRAM CGPIE1 




c 

C THIS EXAMPLE DRAWS A SIMPLE PIE GRAPH 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C ' 

(IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0:METAFILE 1: SCREEN 2: BOTH) 

(SEGS - DATA SET, 

NUM - NUMBER OF DATA VALUES, 

TITLE - TITLE OF GRAPH, 

NEXPI - NUMBER OF FIRST EXPLODED SEGMENT, 

NEXP2 - NUMBER OF LAST EXPLODED SEGMENT, 

LFORM1 - QUANTITY LABEL INDICATOR 0:D0 NOT DISPLAY 
LFORM2 -PERCENTAGE LABEL INDICATOR 0:D0 NOT DISPLAY 

(NOPLB - SEGMENT NUMBER ASSOCIATED WITH LABEL, 

LABEL - SEGMENT LABELS, 

KEY - KEY ENTRY LABEL FOR THIS SEGMENT) 




C DATA SECTION 

REAL SEGS( 6 ) 

CHARACTER*80 TITLE, LABEL, KEY 
DATA SEGS/0.5, 1.2, 1.0, 3.2, 1.6, 1.5/ 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV =■ 2 

CALL LEZINI (IDEV) 

C SET UP PIE GRAPH AND LABELING— 

NUM - 6 

TITLE = 'D[BLC]AILY ACTIVITIES' 

NEXPI - 0 
NEXP2 - 0 
LF0RM1 * 0 
LF0RM2 = 0 

CALL LEZPIE (SEGS , NUM .TITLE, NEXPI ,NEXP2 , LF0RM1 .LF0RM2 ) 


C LEZINI 

C 

C 

C LEZPIE 

C 

C 

C 

C 

c 

c 

C 

c LEZPLB 
C 
C 
C 

C LEZSHW 
C 

C LEZTRM 


EXAMPLE 


1 : DISPLAY , 
1: DISPLAY) 
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C LABEL SEGMENTS 

NOPLB = 1 

LABEL =* 'S [ BLC ] ECOND PROJECT' 

KEY = ' ' 

CALL LEZPLB (NOPLB , LABEL, KEY) 

CALL LEZPLB ( 2 , 'S [ BLC ] UPERVISE WORKERS',' ') 
CALL LEZPLB ( 3 , 'M [ BLC ] EET WITH SUPERVISOR' , ' ') 
CALL LEZPLB (4 , 'M [ BLC ] AIN PROJECT',' ') 

CALL LEZPLB ( 3 , 'A[ BLC ] NSWER QUESTIONS',' ') 

CALL LEZPLB (6 , '0 [ BLC j THERS ' , ' ') 

CALL LEZNOT ('CGPIEI',7. ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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Daily activities 



Second project 


Supervise workers 

KXXXX1 

Meet with supervisor 


Main project 

V////A 

Answer questions 


Others X 


25 employees 
3.2 
35.6% 


1 employee 

1.0 

11 . 1 % 



/ 


All employees 

1.2 

13.3% 


10 employees 

0.5 

5.6% 







12 employees 
1.5 

16.7% 


All employees 
17.8% 


'•*"*'*« f «'*iV*i* I #- 

OF POOR QUALITY 


CGPIE2 
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PROGRAM CGPIE2 


C 

C 

C THIS EXAMPLE DRAWS AN EXPLODED PIE JITH A KEY 
C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY VRE USED!!!) 

C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C OtMETAFILE 1: SCREEN 2: BOTH) 

LEZKEY (TITLE - TITLE OF GRAPH, 

XPOS - X POSITION ON THE PACE , 

YPOS - Y POSITION ON THE PACE, 

KENTRY - FIRST KEY ENTRY LABEL) 

KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 
LEZNOT (STRING - NOTE, 

XPOS - X POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 

YPOS - Y POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 

IHJST - HORIZONTAL JUSTIFICATION I : LEFT 2: CENTER 3 : RIGHT , 

IVJST - VERTICAL JUSTIFICATION 1: BOTTOM 2 : CENTER 3:TOP, 

IANG - ANGLE OF ROTATION ABJUT THE JUSTIFICATION POINT) 

ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 
FROM THE HORIZONTAL AXIS. 

LEZPIE (SEGS - DATA SET, 

NUM - NUMBER OF DATA VALUES, 

TITLE - TITLE OF GRAPH, 

NEXP1 - NUMBER OF FIRST EXPLODED SEGMENT, 

NEXP2 - NUMBER OF LAST EXPIODED SEGMENT, 

LFORM1 - QUANTITY LABEL INDICATOR 0:DO NOT DISPLAY 1: DISPLAY, 
LFORM2 -PERCENTAGE LABEL INDICATOR 0:D0 NOT DISPLAY 1: DISPLAY) 

LEZPLB (NOPLB - SEGMENT NUMBER ASSOCIATED WITH LABEL, 

LABEL - SEGMENT LABELS, 

KEY - KEY ENTRY LABEL FOR THIS SEGMENT) 

LEZSHW 

LEZSIZ (XSIZE - WIDTH OF CHARACTERS, 

YSIZE - HEIGHT OF CHARACTERS) 

LEZTRM 
C 

C r 

C DATA SECTION 

INTEGER IHJST, IVJST 
REAL SEGS (6) 
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CHARACTER*80 TITLE, KENTRY, STRING, LABEL, KEY 
DATA SEGS/0.5, 1.2, 1.0, 3.2, 1.6, 1.5/ 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV = 2 

CALL LEZ INI (IDEV) : 

C SET UP PIE GRAPH AND LABELING 

TITLE = ' ' 

NUM = 6 
NEXP1 » 6 
NEXP2 = 2 
LFORMI = 1 
LF0RM2 = 1 

CALL LEZPIE (SEGS , NUM .TITLE ,NEXP1 ,NEXP2 , LF0RM1 , LF0RM2 ) 

C CREATE A KEY 

TITLE = ' ' 

XPOS ■ 3.0 
YPOS =6.25 

KENTRY = 'S[BLC]ECOND PROJEKT' 

CALL LEZKEY (TITLE , XPOS , YPOS , KENTRY) 

C LABEL SEGMENTS AND MAKE KEY ENTRIES 

NOPLB = 4 

LABEL = ' [BLC] 25 EMPLOYEES' 

KEY = 'M [ BLCjAIN PROJECT' 

CALL LEZPLB ( NOPLB , LABEL, KEY) 

CALL LEZPLB (1,'[BLC]L6 EMPLOYEES', 'S[BLC]EC0ND PROJECT') 

CALL LEZPLB ( 6 , ' [BLC] 1 2 EMPLOYEES' , '0[ BLC] THERS' ) 

CALL LEZPLB (2,'A[BLC]LL EMPLOYEES' , 'S [BLC ]UPERVISE WORKERS') 
CALL LEZPLB (3,'[BLC]1 EMPLOYEE' , 'M [BLC ]EET WITH SUPERVISOR') 
CALL LEZPLB (5,'A[BLC]LL EMPLOYEES' , 'A [BLC ]NSWER QUESTIONS') 

C CHANGE CHARACTER SIZE OF TEXT FOR NOTE 

XSIZE = 0.25 

YSIZE = 0.25/. 8 

CALL LEZSIZ (XSIZE , YSIZE) 

C PUT NOTE ON PAGE 

STRING = 'D[BLC ]AILY ACTIVITIES' 

XPOS =3.5 
YPOS =6.7 
IHJST = 2 
IVJST = 1 
IANG = 0 

CALL LEZNOT ( STRING , XPOS , YPOS , IHJST, IVJST, IANG) 
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C CHANGE CHARACTER SIZE OF TEXT BACK TO DEFAULT SIZE 


XSIZE =* 0.0 
YSIZE = 0.0 

CALL LEZSIZ (XSIZE , YSIZE) 

CALL LEZN0T('CGPIE2' ,7. ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

c TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 


CALL LEZTRM 

STOP 

END 





PROGRAM CGPIE3 


C 

C 

C THIS EXAMPLE DRAWS TWO EXPLODED PIES ON ONE PAGE WITH A KEY 
C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C 

C LEZINI (IDEV - DI-3000 LOGICAL DEVICE NUMBER 
C OrMETAFILE 1: SCREEN 2: BOTH) 

C 

C LEZKEY (TITLE - TITLE OF GRAPH, 

C XPOS - X POSITION ON THE PACE, 

C YPOS - Y POSITION ON THE PACE, 

C KENTRY - FIRST KEY ENTRY LABEL) 

C KEY IS POSITIONED ACCORDING TO THE UPPER RIGHT CORNER 

C 

C LEZNOT (STRING - NOTE, 

C XPOS - X POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 

C YPOS - Y POSITION OF THE JUSTIFICATION POINT ON THE PAGE, 

C IHJST - HORIZONTAL JUSTIFICATION 1: LEFT 2: CENTER 3: RIGHT, 

C IVJST - VERTICAL JUSTIFICATION l:BOTTOM 2: CENTER 3:TOP, 

C IANG - ANGLE OF ROTATION ABOUT THE JUSTIFICATION POINT) 

C ANGLE OF ROTATION IS MEASURED COUNTERCLOCKWISE 

C FROM THE HORIZONTAL AXIS. 

C 

C LEZOPT ( IOPT - OPTION NUMBER, 

C IVALS - OPTION VALUE(S) ) 

C 

C LEZPIE (SEGS - DATA SET, 

C NUM - NUMBER OF DATA VALUES, 

C TITLE - TITLE OF GRAPH, 

C NEXPI - NUMBER OF FIRST EXPLODED SEGMENT, 

C NEXP2 - NUMBER OF LAST EXPLODED SEGMENT, 

C LFORM1 - QUANTITY LABEL INDICATOR 0:DO NOT DISPLAY I:DISPLAY, 

C LFORM2 -PERCENTAGE LABEL INDICATOR 0:DO NOT DISPLAY 1: DISPLAY) 

C 

C LEZPLB (NOPLB - SEGMENT NUMBER ASSOCIATED WITH LABEL, 

C LABEL - SEGMENT LABELS, 

C KEY - KEY ENTRY LABEL FOR THIS SEGMENT) 

C 

C LEZPQP (N1 - TOTAL NUMBER OF CHARACTERS NEEDED FOR QUANTITY LABEL, 

C FORM1 - FORTRAN SPECIFICATION STATEMENT FOR QUANTITY LABELS, 

C N2 - TOTAL NUMBER OF CHARACTERS NEEDED FOR PERCENTAGE LABELS, 

C FORM 2 - FORTRAN SPECIFICATION STATEMENT FOR PERCENTAGE LABELS) 

C 

C LEZSHW 
C 

C LEZSIZ (XSIZE - WIDTH OF CHARACTERS, 

C YSIZE - HEIGHT OF CHARACTERS) 

C 

C LEZTRM 
C 

C 
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C DATA SECTION — 


REAL PIEA(6) , PIEB(6) 

CHARACTER*80 KENTRY, FORM I, FORM2 , TITLE, LABEL, KEY, STRING 

DATA PIEA /3.21 , 2.98, 1.17, 6.96, 3.26, 9.54/ 

DATA PIEB / . 15, 1.86, .50, 3.18, .35, 17.24/ 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV - 2 

CALL LEZINI (IDEV) 

C SET UP FIRST PIE GRAPH AND LABELING 

TITLE = ' ' 

NUM - 6 
NEXPl = 6 
NEXP2 = 6 
LF0RM1 ■ 1 
LF0RM2 - 1 

CALL LEZPIE (PIEA, NUM .TITLE, NEXPl ,NEXP2,LF0RM1 .LF0RM2) 

C SPECIFY NON-DEFAULT FORMATS FOR QUANTITY AND PERCENT LABELS 

N1 = 3 

F0RM1 = ' (F5. 2) ' 

N2 = 5 

FORM 2 = '(F4. 1 , 1H%) ' 

CALL LEZPQP(N1 ,FORMl,N2,FORM2) 

C SET OPTIONS 

C CHANGE RADIUS OF PIE. 

CALL LEZOPT ( 'RADIUS' , 1 . 2 ) 

C CHANGE X COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 1 . 7 5) 

C- CHANGE Y COORDINATE OF ORIGIN. 

CALL LEZOPT ( 'YORIGIN' , 2 . 7 5) 

C SET FLAG SO SCREEN IS NOT CLEARED AFTER LEZSHW. 

CALL LEZOPT ( 'CLEAR' ,. FALSE . ) 

C SET FLAG SO THERE IS NOT PAUSE AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' , .FALSE. ) 

C PUT NOTE ON PAGE 

STRING = 'C [ BLC ]OMPUTER 1' 

XPOS * 1.75 
YPOS = 0.5 
IHJST = 2 
IVJST = 2 
IANG = 0 
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CALL LEZNOT (STRING , XPOS , YPOS , IHJST, IVJST, IANG) 

CALL LEZNOT ( 'CGPIE3' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C DRAW SECOND GRAPH ON PAGE 

C SET UP SECOND PIE GRAPH AND LABEL [NG 

TITLE = ' ' 

NUM =6 
NEXP1 = 6 
NEXP2 = 6 
LFORM1 =* 1 
LFORM2 - 1 

CALL LEZPIE (PIEB.NUM .TITLE, NEXH .NEXP2.LFORM1 .LFORM2) 

C CREATE A KEY 

TITLE = 'D(BLC]IVIS IONS' 

XPOS =4.6 
YPOS = 6.0 
KENTRY = 'AQRT ' 

CALL LEZKEY (TITLE, XPOS, YPOS, KEMTRY) 

C DEFINE KEY ENTRIES 

NOPLB = 2 
LABEL = ' ' 

KEY = 'QORET' 

CALL LEZPLB (NOPLB .LABEL, KEY) 

CALL LEZPLB (3,' ','PMFEO') 

CALL LEZPLB (4,' ','ABUF') 

CALL LEZPLB (5,' ','ODG') 

CALL LEZPLB (6,' ','MERBD') 

C SPECIFY NON-DEFAULT FORMATS FOR QUANTITY AND PERCENT LABELS 

N1 = 3 

FORM! = '(F5.2)' 

N2 = 5 

FORM 2 = ' (F4. 1 , 1H%) ' 

CALL LEZPQP(NI ,F0RM1 ,N 2, FORM 2) 


C SET OPTION 

C CHANGE X COODINATE OF ORIGIN. 

CALL LEZOPT ( 'XORIGIN' , 5 . 125) 

C SET FLAG SO THAT THE SCREEN PAUSES AFTER LEZSHW. 

CALL LEZOPT ( 'PAUSE' , .TRUE. ) 

C PUT NOTES ON PACE 
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STRING - 'C [ BLC ]OMP LITER 2' 

XPOS = 5.125 
YPOS * 0.5 
IHJST = 2 
IVJST = 2 
IANG = 0 

CALL LEZNOT (STRING, XPOS , YPOS , IHJST, IVJST, IANG) 

STRING =* 'CRU [ BLC ]S (MILLIONS)' 

XPOS - 3.5 
YPOS * 6.25 
IHJST = 2 
IVJST = 2 
IANG - 0 

CALL LEZNOT (STRING, XPOS , YPOS , IHJST, IVJST, IANG) 

C CHANGE CHARACTER SIZE OF TEXT FOR NOTE 

XSIZE - 0.2 

YSIZE = 0.2/. 8 

CALL LEZSIZ (XSIZE , YSIZE ) 

C PUT NOTE ON PAGE 

STRING - 'CRU [BLC] UTILIZATION [ELC] - F[BLC]ISCAL YEAR 1986' 

XPOS - 3.5 

YPOS =6.5 

IHJST = 2 

IVJST = 2 

IANG = 0 

CALL LEZNOT (STRING, XPOS , YPOS , IHJST, IVJST , IANG) 

C CHANGE CHARACTER SIZE OF TEXT BACK TO DEFAULT SIZE 

XSIZE = 0.0 
YSIZE = 0.0 

CALL LEZSIZ (XSIZE .YSIZE) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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ORIGINAL PAtJE f§ 
OF POOR QUALITY 


Meet with supervisor 

1.0 



Answer question 

1.6 


Daily activities 


CGPIE4 


PROGRAM CGPIE4 


C— —————— — — — — — . 

c 

C THIS EXAMPLE DRAWS A PIE CHART WITH QUANTITY AND TEXT LABELS DISPLAYED 
C FOR EACH SEGMENT. 

C 

C STRUCTURE OF COMMON GRAPHICS LIBRARY ROUTINES USED IN THIS EXAMPLE 
C (THESE ROUTINES ARE LISTED IN ALPHABETICAL ORDER, 

C NOT NECESSARILY IN THE ORDER THEY ARE USED!!!) 

C 

C LEZINI 
C 
C 

C LEZPIE 
C 
C 
C 
C 
C 

c 
c 

C LEZPLB 
C 
C 
C 

C LEZSHW 
C 

C LEZTRM 
C 

C 

C DATA SECTION 

REAL SEGS (6 ) 

CHARACTER*80 TITLE, LABEL, KEY 
DATA SEGS/0.5, 1.2, 1.0, 3.2, 1.6, 1.5/ 

C INITIALIZE COMMON GRAPHICS LIBRARY AND DI-3000 

IDEV = 2 

CALL LEZINI (IDEV) 

C SET UP PIE GRAPH AND LABELING 

NUM = 6 

TITLE = 'D( BLC ] AILY ACTIVITIES' 

NF.XP1 =■ 0 
NEXP2 =* 0 
LF0RM1 = 1 
LF0RM2 = 0 

CALL LEZPIE (SEGS , NUM .TITLE , NEXP1 .NEXP2 , LF0RM1 , LF0RM2 ) 


(IDEV - DI-3000 LOGICAL DEVICE NUMBER 
0: METAFILE 1: SCREEN 2: BOTH) 

(SEGS - DATA SET, 

NUM - NUMBER OF DATA VALUES, 

TITLE - TITLE OF GRAPH, 

NEXP1 - NUMBER OF FIRST EXPLODED SEGMENT, 

NEXP2 - NUMBER OF LAST EXPLODED SEGMENT, 

LF0RM1 - QUANTITY LABEL INDICATOR 0:DO NOT DISPLAY 1: DISPLAY, 
LF0RM2 -PERCENTAGE LABEL INDICATOR 0:DO NOT DISPLAY 1: DISPLAY) 

(NOPLB - SEGMENT NUMBER ASSOCIATED WITH LABEL, 

LABEL - SEGMENT LABELS, 

KEY - KEY ENTRY LABEL FOR THIS SEGMENT) 
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C LABEL SEGMENTS— 


NOP LB - 1 

LABEL = 'S [ BLC ] ECOND PROJECT' 

KEY =■ ' ' 

CALL LEZPLB ( NOPLB , LABEL , KEY) 

CALL LEZPLB ( 2 , 'S [ BLC ] UPERVISE WORKERS' , ' ') 
CALL LEZPLB ( 3 , 'M [ BLC ] EET WITH SUPERVISOR',' ') 
CALL LEZPLB (4 , 'M [ BLC ] AIN PROJECT',' ') 

CALL LEZPLB ( 5 , 'A [ BLC j NSWER QUESTION',' ') 

CALL LEZPLB (6 , '0 [ BLC JTHERS' , ' ') 

CALL LEZNOT( 'CGPIE4' , 7 . ,0. ,3,1,0) 

C SHOW GRAPH 

CALL LEZSHW 

C TERMINATE COMMON GRAPHICS LIBRARY AND DI-3000 

CALL LEZTRM 

STOP 

END 
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Notes. 
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APPENDIX C 


DEFAULT CHARACTERISTICS USED IN THE COMMON GRAPHICS LIBRARY 

The following figures illustrate the LEZ chart characteristics and their initial values. 
Many of these values can be changed after the CGL has been initialized. The values 
shown here are given to the characteristics at initialization and remain these values until 
they are overridden by calling the appropriate routines. 

See the following tables for a complete list of LEZOPT options and their defaults: 

Table 3-1 for the options for line and/or logarithmic charts, 

Table 3-2 for the options for bar charts, and 
Table 3-3 for the options for pie charts. 


C-1 



Characteristic 


Default Value 


1 ) page coordinates - 7 by 7 units (can be thought of as inches) 

2) axes length : 

horizontal - 2/3 * page width (HAXLEN) 

vertical - 2/3 * page height (VAXLEN) 


3) origin of axes: 

XORIGIN - 
YORIGIN - 

4) character size : 

height - 
width - 


5) major tick mark length - 


2/9 * page width 
2/9 * page height 


.129 (GHEIGHT) ** 

8/1 0 * character height (CWtDTH) ** 
Subscripts and superscripts are 8/10 * base 
character height and width. ** 

CHEIGHT 


6 ) minor tick marks length - 2/3 * major tick mark length 

7) symbol Stee - same height and width as CHEIGHT 

8) distance from axis to tick 

mark label - .063/.086 * CHEIGHT ** 


9) position of horizontal axis label : 

X-position - XORIGIN + 1/2 HAXLEN 

Y-position - . 1 88/.086 * CHEIGHT from bottom of tick mark 

label ** 


1 0) position of vertical axis : 

X-position - 
Y-position - 

11) position of caption : 

X-position - 
Y-position - 


.188/.086 * CWIDTH from widest tick mark label 
YORIGIN + 1/2 VAXLEN 


XORIGIN + 1/2 HAXLEN 
bottom of page + 2 * CHEIGHT 


** Scale factor used in this expression is a ratio of publication standard defaults. 
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The following figure illustrates the various defaults for the line and bar charts. 



Figure C-1 . Line and bar chart defaults. 


C-3 




Characteristic 

Default Vaule 

1) page coordinates - 

7 by 7 units (can be thought of as inches) 

2) pis radius - 

2/9 * smaller page dimension (RADIUS) 

3) oriain of pi$: 
XORIGIN - 
YORIGIN - 

1 /2 * page width 
1/2 * page height 

4) character size: 
height - 
width - 

.129 (CHEIGHT) ** 

8/10 * character height (CWIDTH) ** 
Subscripts and superscripts are 8/10 * base 
character height and width. ** 

5) radial distance from oriain tn 
Start of segment ppinfor - 

RADIUS* 1.06 

6) radial distance from oriain tn 
end of segment pointer - 

RADIUS* 1.18 

7) radial distance frpm prigin ^ 
closest segment label - 

RADIUS *1.25 

8) position of capting- 
X-position - 
Y-position - 

1/2 ‘XORIGIN 

bottom of page + 2 * CHEIGHT 


Scale factor used in this expression is a ratio of publication standard defaults. 
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The following figure illustrates the various defaults for the line and bar charts. 




Notes. 
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APPENDIX I) 


HOW TO ACCESS AND EXECUTE THE COMMON GRAPHICS LIBRARY 


This appendix explains how to access and execute the CGL on several computer 
systems. It contains the following sections: 

1.0 Accessing the Common Graphics Library on NOS 2 

1.1 Manual Load Sequence 3 

1.2 Batch CCL Procedure __ llir . e 4 

2.0 Accessing the Common Graphics Library on P™™ 0 ^ . 

2.1 Load Sequence Using Unshared Versions of DI-3000 

2.2 Load Sequence Using Shared Veision of DI-3000 

3.0 Accessing the Common Graphics Library, on VAX 

4.0 Accessing the Common Graphics Library on NOS A/ ^ 

4.1 Manual Load Sequence 

4.2 Procedure to Run the CGL on NOSA/E 


Anv FORTRAN 77 code will be able to access the LEZ routines which currently use 

the DI-3000 based CGL. The CGL does not contain any PVI s ° ft ^ 

device drivers, DI-3000 library, extended I brary, and any oth ler DI-3000 based 

software must be loaded with the CGL. The usershouldcons.der 

extension of their graphics program. Because NOS and PRIME are A PP n a 

systems, procedures for these machines are given in th s section^ As the CGL 

moved onto other ACD supported systems, this section will be expanded. 
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1.0 


Accessing The Common Graphics Library On NOS 


hJ" ava 'lable as a user library under the user number UNsLIBRAry it m 

ar s o a TbercC oTfa d n:Z a, rccn * T" " "setTZJ ^ 

interactive operate , of th^CGL * ' Pr ° CedUreS *° ,aCi,i,a,e both and 

1.1 Manual Load Sequenca 
Metafile Driver LOAD/EXECUTE Sequence (NOS) 

LDSET .LIBkDI3000/DICOMLB,MAP*N. 

LOAD,MFNODE,SSDUMMY,DD401 4. 

LGO. 

NGS LOAD/EXECUTE Sequence 

AtACH:DlctdL^tN=LIBRARY^ MY ^^ DUMMY ’ DD=DD4014/,JNl:I ' ,BRARY 
LDSET,LIB=DI3000/DICOMLB,MAP=N 
LOAD.MFDUMMY.SSDUMMY DD 
LGO. ’ ' 
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1.2 Batch CCL Procedure 

There are two batch procedures to run the CGL. The first procedure _uses the 
standard NOS load sequence and is called CGLGO. The second, called CGLCGO, 
uses the capsule loader version of DI-3000. Their usage is given below. 

GET,CGLGO/UN=PVINFO. 

CGLGO, DRIVER.MF.SS, ACCOUNT. 

Where: DRIVER - the device dr iver to be loaded. 

MF - the metafile lomit if none is desired) 

MFNODE - if one is desired. 

SS - use the extended version of DI-3000 

ACCOUNT- ACCOUNT other than LIBRARY (not recommended 
unless a special driver is used.) 

GET,CGLCGO/UN=PVINFO. 

CGLCGO, LGO, DRIVER.MF.SS, ACCOUNT. 

Where: LGO - the relocataoles of the user’s program. 

DRIVER - the device c river to be loaded. 

MF - the metafile (omit if none is desired) 

MFNODE - if one is desired. 

SS - use the extended version of DI-3000 

ACCOUNT- ACCOUNT other than LIBRARY (not recommended 
unless a special device driver is used). 
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2.0 Accessing The Common Graphics Library On PRIMOS 

js The CGL is avai,able a s a user library on the PRIME network. The CGL pathname 


PVI.INFO>CGL>DICOM.LIB 


hl'r S p!T d ,“ n ’ he , M ma f hine - The user ca " u =® 'he 'oad sequences below to 

Th« CPL ' Create and execu,e a SE G file for a CGL application prooram 
These sequences can also be performed manually 

The following assumptions hold for all the load sequences in this section: 


1) application program resides on a file named TEST.F77. 

2) all programs compiled using F77 compiler (i.e., F77 TEST) 

3) target device is Tektronix 4014. 


2.1 Load Sequence Using Unshared Versions of DI-3000 

SEG -LOAD 

ST 177774 (OPTIONAL) 

LO TEST 

LO PVI.INFO>CGL>DICOM LIB 

LI DIBASIC 

LI DD4014 

LI VAPPLB 

LI 

Q 


To execute: 


SEG TEST 
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2.2 Load Sequence Using Shared Version of DI-3000 

SEG -LOAD 
ST 177774 (OPTIONAL) 

LO TEST 

LO PVI.INFO>CGL>DICOM.LIB 
LI D13.SHR 
LI VAPPLB 
LI 
Q 


To execute: 

SEG TEST 


All conventions for 
remain unchanged. 
Scientific Computing 


using the shared version of DI-3000 (WHOAMI, metafiles, etc.) 

See Section 7. 1.4.2 of the Graphics Mini-Manual (Central 
Complex Document G-1) for complete details. 
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3.0 Accessing The Common Graphics Library On Vax 

Several VAX machines on the field have the CGL available to the users Tho . naH 
sequence below can be used either in a COM file or entered interactively 

The following assumptions hold for the given load sequence: 


1) application program resides on a file of the form XXX FOR 

XXX XTxXFOR 7ef lhe COmmand F0R XXX ' ^ 

3) the target device is a Tektronix 41 OX series terminal. 

The load sequence is: 


LINK ’PI’- 

Dxxx:[CGL directory]DICOM.OLB/LIBRARY - 
Dyyy:[DI3000 directoryJDILIB.OLB/LIBRARY - 
Dyyy:[DI3000 directory]DDR405.OBJ - 
Dyyy:[DI3000 directoryJMFNODE.OBJ - 
Dyyy:[DI3000 directoryJDIMFLIB.OLB/LIBRARY - 
Dyyy:[DI3000 directoryJUTILLIB.OLB/LIBRARY - 

where: 


'PV 

Dxxx 

Dyyy 

CGL directory 
DI3000 directory 
DICOM.OLB 
DILIB.OLB 
DDR405.OBJ 

* MFNODE 

* DIMFLIB.OLB 
UTILLIB.OLB 


XXX from 1) and 2) above 
disk where the CGL directory resides 
disk where the DI3000 directory resides 
pathname to the CGL files 
pathname to the DI3000 files 
CGL code (executables) 

DI3000 code 
device driver 
metafile device driver 

library containing I/O routines for the Metafile device driver 
library containing utility routines for DI3000 


These two files need not be 
used. 


included in the load sequence if the metafile is not 
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NOTE : Since there is no centralized control over the different VAX machines on 
the field, the exact pathnames and filenames may be different from 
machine to machine. The system administrator for the user's machine 
should be contacted for specific d rectory and file information. 



4.0 Accessing The Common Graphics Library On NOS/VE 

The CGL may be accessed and loaded manually in a job stream or terminal 
session. There is also a procedure to facilitate both batch and interactive operation 
of the CGL. 

4.1 Manual Load Sequence 


The Common Graphics Library may be manually loaded using the 
CREate_Object_Library utility with the following sequence: 

C R Eate_Object_Library 
ADD_Modules Library="object file" 

” IF using di_textpro THEN " 

SATisfy._External_References .. 

Libraries=($family. library, graphics. common_graphicsjibrary 

_textpro) 

” IF not THEN " 

SATisfy_Externa!_References .. 

Libra ryes=($family. library .graphics.common_graphicsJibrary) 

GENerate_Library Library="revised binary file" 

QUIT 

" Run DI-3000 procedure using the revised binary file. " 
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4.2 Procedure to Run the CGL on NOS/VE 


Procedure to run the Common Graphics Library on NOS/VE is as follows: 

"NOS/VE uses double quotations to denote comments." 

"Acceptable abbreviatons are shown in CAPITAL letters." 


SET_Command_List Add=:ve1 .library. graphics. procedure Jibrary 
" This may be done in the user prolog. 

EXEcute_Common_Graphics_Library .. 

Binaries="file default = $local.lgo" 

Device=$REQIRED 
EXTended="boolean default=false" 

MetaFile="boolean default=false" 

ConTouring="boolean default=false” 

Di_Textpro="boolean default=false" 
status="status" 
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